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1 . ABSTRACT 



The TCOl Basic Exerciser is a series of test progrqms that may be used to gain a high degree 
of confidence in the data handling ability of a TCOl DECtape Control and one to eight TU55 DECtape 
Transports. The Basic Exerciser consists of several basic routines that may be individually selected; each 
routine will operate on any configuration of one to eight drives. These routines include a Basic Motion 
Routine, Search Find All Blocks Test, Basic Search Routine, Start/Stop/Turnaround Test, Basic Write/ 
Read Data Test with eight selectable patterns, and a Parity Generation and Checking Test. The opera- 
tion of the Basic Motion Routine and the Baisc Search Routine are controlled by keyboard input. Also, 
a Write Data Scope Loop, Read Data Scope Loop, and a Search Scope Loop are provided to keep the 
tape moving from end zone to end zone. 

2. REQUIREMENTS 

2.1 Equipment 

PDP-8 (standard) 

TCOl DECtape Control 

One to eight TU55 DECtape Transports 

2.2 Storage 

The program occupies most of memory from address 0000 to 6377 and utilizes three buffer areas 
as follows: 

Address Function 

6774-7174 Output buffer 

Program storage for Motion Test (0200) 
Block Number storage for Basic Search (0202) 

7\75-7Z7^ INPUT buffer 1 

7276-7576 INPUT buffer 2 

2.3 Preliminary Programs (None) 

3. LOADING PROCEDURE 

3.1 Method 

Use normal binary loading procedures from paper tape. 
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4. STARTING PROCEDURE 

4.1 Control Switch Settings 

Any configuration of one to eight drives may be selected in SWITCH REGISTER bits to 7. 
Each bit is a master bit for selection of a drive. When the switch is a 1 the drive is selected; when a 
the drive is not selected. 



Switch 


Drive 





8 


1 


1 


2 


2 


3 


3 


4 


4 


5 


5 


6 


6 


7 


7 



4.2 Starting Addresses of Routines 



Address 


Routine 


Paragraph 


0200 


Basic Motion Routine 


9.1 


0201 


Search Find All Blocks 


. 9.2 


0202 


Basic Search Routine 


9.3 


0203 


Start/Stop/Turnaround 


9.4 


0204 


Write/Read Data Test 


9.5 


0205 


Parity Generation Test 


9.6 


0206 


Write Data Scope Loop 


9.7 


0207 


Read Data Scope Loop 


9.8 


0210 


Search Scope Loop 


9.9 



4.3 Program and/or Operator Actio n 

a. Place the select address for the routine desired in the SWITCH REGISTER and press LOAD 
ADDRESS. 

b. Set SWITCH REGISTER bits to 7 to select drives. (Any configuration except all Os is 
va I id .) 

c. Press START. The processor halts at address 0223 with bits to 7 of the SWITCH REGISTER 
displayed in the AC. 
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d. A halt at address 0311 indicates bits to 7 \Nexe all Os. Select drives and press CON- 
TINUE to recover. 

e. Set all SWITCH REGISTER bits to 0, or as desired according to paragraph 5.1, and press 
CONTINUE. 

A detailed description of how the routines can be used to initially check out the control and 
drives can be found in paragraph 5.3. 

5. OPERATING PROCEDURE 

5.1 Operational Switch Settings 

5.1.1 Routines with no Switch Settings - Four of the routines require different switch settings to 

control program flow. The routines that have no switch settings are: 

0200 Basic Motion Routine 

0202 Basic Search Routine 

0205 Parity Generation 

0207 Read Scope Loop 

0210 Search Scope Loop 

5.1 .2 Search Find All Blocks - The Search Find All Blocks Routine (0201) has one switch setting. 

Setting SWll to 1 deletes the halt at the end of test. 

5.1 .3 Write/Read Data Test - The Write/Read Data Test (0204) utilizes switches 3 to 1 1 to control 

pattern selection and program flow as follows: 

Switch Operation 

3 Delete all error detection where the motion bit in status A remains 
1 (parity, data compare errors, and WC (word count register) not 
equal to 0). 

4 Run patterns sequentially; i.e.. After making one complete pass the 
length of tape with pattern 5, the next pass is made with pattern 6. 

5 Read data only (after the first write pass). 

6 Write data only (SW5 overrides SW6). 

7 Write and read sequence, one block at a time. 

8 Write and read sequence, 32 blocks at a time. (SW7 overrides SWB, 
when both switches = 0, the write and read sequence occurs for the 
length of the tape). 
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Switch Operation 

9, 10, and 11 indicate pattern selection as follows: 

000 All Os 

001 All Is 

010 Alternate words of Os and Is 

01 1 Words of 2525 

1 00 Words of 5252 

101 Words of 0707 

110 Words of 7070 

111 Alternate words of 2525 and 5252 



5.1 .4 Write Scope Loop - Tlie Write Scope Loop (0206) utilizes switches 9, 10, and 1 1 for pattern 

selection in the same manner as the Write Data/Read Data Test. 

5.1 .5 Start/Stop/Tu r na rou nd - The Start/Stop/Turnaround Test (0203) uses switch 1 to delete stop 
after error, and halt at end of test. 

5.2 Subroutine Aspects (None) 

5.3 Program and/or Operator Action 

This series of routines is designed for initial check-out of a TCOl DECtape Control and its 
associated drives, or maintenance and repair of the control and drives after installation. 

The following procedure is used for initial check-out of the control and drives and can be 
followed to repair malfunctions once the control and drives have been operating: 

5.3.1 Operation Check - The first routine utilized is the Basic Motion Routine (0200). It is used to 

visually verify the following operations with the use of an oscilloscope, the indicators on the TCOl in- 
dicator panel, and by watching the motion of the tape on the DECtape drive. 

5.3.1 .1 Initial Control State -When power is initially applied to the TCOl Control, status A, the 
error and DECtape flags, and the data flag can come up in any state. A short manual procedure will 
prevent erasing DECtapes and having to reload programs. 

Set the SWITCH REGISTER to 0. 

Press LOAD ADDRESS. 

Select SINGLE STEP. 

Press DEPOSIT. 

Press LOAD ADDRESS. 



a 0. 
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Press START (to generate a POWER CLEAR). 

Now examine the TCOl indicator panel, the following indicators should all be off, indicating 

DTP (DECtape flag) 

DP (data flag) 

All ERROR flags 

W (WREN write enable) 

Status A bit 4 (motion) 

US (up to speed) 

CO to C3 can be in any stable state (not counting) 

All state register bits except I should be 0, and bit I should be a 1 (state idle) 

5.3.1 .2 Clear and Load Status A (lOT 762, 764, and 766) - The basic operation and existence of these 
DECtape lOTs can be verified as follows: 

Start the Basic Motion Routine with all drives SWITCH REGISTER selected and off line. Type 
the following program: 

"P" WD 
"W" AIT 0100 
"C" HNG 
"R" PT 0002 
"D" O 

Now, watch the status A indicators 0, 1, and 2. They should go to Oq and remain there for 

o 

slightly more than a second, then proceed to 1_, 2-, 3^ etc., up to 7^, and return to Oq and repeat the 

boo o o 

process. In addition, a select error should be generated for each drive selection and the MOTION bit 
should be set to 0. By increasing the "WAIT count or restarting the program with each drive individually 
selected, the decoding of the drive number to a single select line can be monitored with an oscilloscope; 
or the selection indicators over the rotary select switch on the TU55s may be used by placing the drives 
on line and including a "S"TOP command after the "P"WD. 

5.3.1 .3 Tape Motion and Timing Pulse Generation - Put one drive on line and start the Basic Motion 

Routine with that drive SWITCH REGISTER selected. To verify basic operations of the control and drive 

motion controls: type the following series of short programs: 

"F"WD . 

"D"0 
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The tape on the selected drive should start moving forward (off the left-hand reel and onto 
the right-hand reel). A select error should not be generated and bit 4 of status A should remain 1 unless 
end zone is reached and detected. CO to C3 should appear to be counting, indicating timing pulse gen- 
eration; US (up to speed) should set to 1 within a short period after tape starts moving. The DTF should 
not set. Now type: 

"S"TOP 
"D"0 

Forward tape motion on the selected drive should stop. (Bit 4 of status A should go to 0). The 

left-hand brake on the drive should be set and the right-hand reel should be free with a small amount of 

torque holding the tape tight . Again, no select error occurs. Now type: 

"B"KWD 
"D"0 

The tape on the selected drive should start moving backwards (off the right-hand reel and 

onto the left). Status A bit 3 should be 1 (BKWD). All other indicator observations for forward should 

be true . Again type: 

"S"TOP 
"D"0 

Backward tape motion should stop. Bit 3 of status A should remain 1 and bit 4 should go to 0. 
The right-hand drive brake should be set and the left-hand reel should be free with only enough torque to 
hold the tape tight. 

5.3.1 .4 New U + M Delay - The new unit and motion delay can be generated by any of several short 

programs, but its operation must be monitored with an oscilloscope. Since the delay time could change 

at a later date (for some currently unknown reason), the time will not be mentioned here; but it can be 

determined from the TCOl logic diagrams. An example of a program that could be used is: 

Manually move the tape until approximately an even amount of tape is on both reels and type: 

"F"WD 

"WAIT 0020 

"B"KWD 

"WAIT 0020 

"R"PT 0040 (or a shorter or longer count as desired) 

"D"0 

5.3.1 .5 End Zone Detection - The program can be used to determine if the end zone is being detected 
by starting the tape in either direction and watching whether or not the tape runs off the reel. Also 
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watch fhe end bit in the error status. If the END indicator lights and the tape does not stop, error stop 
in the control is not being generated. In either case, return the tape to the reel a short distance from 
the start of the reel (less than 10 feet of tape on right hand reel) and use following program to scope the 
end-zone detection. 



"F"WD 
"WAIT 0020 



"B"KWD 

"WAIT 0016 

"R"PT 0040 (or may be made longer or shorter as desired) 

"S"TOP 

"D"0 

The forward wait count can be decreased if the tape rocks forward or increased if the end zone 
approaches too quickly or if the tape runs off the reel . (At that end of the reel, the tape will move 
backward faster than forward.) 

^•3-2 Check End-Zone Detection - For the next sequence of operations, any of the three search rou- 

tines (0201, 0202, or 0210) could be used; but the Search Scope Loop (0210) is the most practical and 
least complicated. When the routine is initiated, the tape starts forward until the end zone is detected 
and then runs backward until end zone is again detected and then forward again. 

If the tape runs off the reel, either the end zone was not detected or bit 2 of status B (END) 
did not read to the processor accumulator during a Read Status B lOT. As the tape is moving forward, 
make the following observations: 

CO to C3 should appear to be incrementing, indicating timing pulses are being generated. 

US (up to speed) should Indicate a 1 shortly after the tape starts moving and should stay on. 

The STATE REGISTER should circulate and appear to remain mainly in state data. 

The DECtape flag indicator should glow visibly, dim, and glow again as the tape moves 
forward (The program does not monitor DTP but simply waits in an ISZ loop and periodically monitors 
END and MOTION). 

No error statuses should be generated except end zone. 

The processor accumulator should appear to be incrementing by 1 as each successive block 
number is read from tape and displayed. 

The timing in the control should be monitored with an oscilloscope with reference to the DEC- 
tape TCOl timing diagrams. 

With the DECtape searching backward, the same observations may be made as forward except 
the processor accumulator should appear to decrement. 
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5.3.3 Correct Block Number - At this point it is suggested that the Search Find All Blocks Routine 
starting at 0201 be used to prove that the control will correctly read block numbers. The Basic Search 
Routine starting at 0202 may be used to gain more information if 0201 does not run without error typeouts. 

5.3.4 Check Read Data Timing - The next step should be to verify the Read Data Timing with an 
oscilloscope utilizing the Read Scope Loop (0207) and the TCOl timing diagrams. 

5.3.5 Check Write Data Timing - Next, the Write Scope Loop (0206) may be run and the Write Data 
timing verified. This routine changes to Search Between Blocks as an effort to keep from writing over 
block numbers. (Recheck the tape with 0201 or 0202 to verify this). 

Thedifferent data patterns may be utilized visually as follows, (W (WREN) should indicate 1 
for all patterns). 

Pattern DATA BUFFER bit indicators 6, 7, and 8 should glow dimly and 

(all Os) the rest of the DATA BUFFER should appear to be Os. 

RWB bits 3, A, and 5 should appear to remain Os. 

RWB bits 0, 1, and 2 should be complementing and should glow 
fairly brightly but not solidly. 

The LPB should complement every six bits and will glow dimly. 

Pattern 1 DATA BUFFER bits 6, 7, and 8 should glow dimly and the rest 

(all Is) of the DATA BUFFER should appear to be steady Is. 

RWB bits 3, A, and 5 should appear to remain steady Is; bits 0, 
1, and 2 should complement and glow fairly brightly but not 
solidly. 

The LPB contents are not predictable but the rate of change should 
be fairly slow and discernable. (The LPB only complements on Os 
and will contain the complement of the reverse checksum of the 
block it is passing over). 

Pattern 2 All bits in the DATA BUFFER, RWB, and LPB should glow dimly, 

(alternate words 
of Os and Is) 

Pattern 3 The even numbered bits of the buffers should act as pattern and 

(2525) the odd numbered bits as pattern 1 . 

Pattern 4 The even numbered bits of the buffers should act as pattern 1 and 

(5252) the odd numbered bits as pattern 0. 

Pattern 5 The rightmost three bits (of each six bits) should appear as pattern 1 

(0707) and the leftmost as pattern 0. 
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Pattern 6 The leftmost three bits (of each six bits) should appear as pattern 1 

(7070) and the rightmost as pattern 0. 

Pattern 7 Should appear as pattern 2. No steady states discernible in the 

(2525 alternate buffers, 

with 5252) 

5.3.6 Prepare Tape for Read - The Write Scope Loop may now be used to prepare a tape for the Read 
Scope Loop and for a further visual verification. Patterns 3, 4, 5, and 6 appearing in the BUFFER(s) 
indicators should read the same in either direction. 

Note that the DATA BUFFER bits 6, 7 , and 8 appear to be in a steady state and not to com- 
plement. Patterns and 1 should be complemented when read in the direction opposite that in which 
they were written. No steady states should be discernible with patterns 2 and 7. 

5.3.7 Check Correct Data - Run the Write/Read Data Test to verify that data is correctly read and 
vyritten. Utilize the different switch configurations (see paragraph 5.1) for a complete test or to scope 
loop the reads or writes. This routine does not change to search between blocks, thus the possibility 
that block numbers may be written over is greater than that of the Write Data Scope Loop. 

5.3.8 Check Checksum Generation - The Parity Generation Test verifies that checksums are being 
generated properly and that parity errors will be detected if they occur. 

5.3.9 Check Turnaround Function - Run the Start/Stop/Turnaround Test (0203). All of the other 
routines are designed to eliminate the possibility of a turnaround error, but this routine tests this function 
to a much tighter limit. 

6. ERRORS 

Almost all hardware malfunctions detected by the program result in an error message typed on 
the Teletype. Each error message includes drive number, operation, direction, mode, error status, block 
being operated on, and correct and incorrect data, if applicable. 

6.1 Error Typeout Descriptions 

6.1 .1 Search Error Typeouts - The Search Error Typeouts are in several formats. The Search Routine 

used by the Parity Test and Write/Read Data Test uses the following format: 
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DRIVE X (A) 

SEARCH FWD (or BKWD) (B) 

XXXX BLOCK WANTED FWD (or BKWD) (C) 

XXXX BLOCK FOUND (D) 

XXXX LAST BLOCK (if BLOCKS READ a: 002) (E ) 

XXXX BLOCKS READ (F) 

XXXX STAT B (G) 

A. This will be the first line of every typeout. Drive X is the drive that was being 
operated at the time of the error. 

B. The second line of every typeout indicates the DECtape function, direction and 
mode. (Typeout will be C MODE for continuous mode). 

C. This is the block number that the search routine should find as an end result and the 
direction that the block should be found in. If the direction in line B is the same as the di- 
rection in line C, the turnaround for finding the block has already been made. If the two 
directions are different, the error occurred before turnaround. 

D. This is the contents of symbolic register BLKFND and could indicate one of the 
following: 

1 . Should be ignored if BLOCKS READ = 0000 and the directions in line B and C 
disagree. It could indicate the turnaround block, if the directions are the same and 
BLOCKS READ -0000. 

2. That the DECtape did not turn around in two PDP-8 block lengths, if BLOCKS 
READ = 0001 , STAT B = 0001 , and the directions indicated are the same. 

3. The BLOCK in error, if BLOCKS READ does not = 0000 and STAT B is an error 
status (i.e. ,6000 MARK TRACK ERROR) other than END ZONE (5000). 

E. This line of the typeout is included only if two or more block numbers have been re- 
ceived since the search operation was started, or since the direction bit in status A was com- 
plemented for turnaround. Examine STAT B and if it does not equal 0001 ignore this line. If 
STAT B does = 0001, LAST BLOCK compared against BLOCK FOUND will indicate that the 
last two block numbers read were not sequential . 

F. The number of block numbers received since the search operation was initiated or 
since turnaround. 

G. This is the DECtape status B register; if STAT B does not = 0001, this is the error 
condition that caused the typeout. If STAT B equals 5000 (end-2'.one interrupt), and the di- 
rections in lines B and C are the same, it means that the drive made one turnaround and went 
the length of the tape without finding the block that the search routine was looking for. An 
end-zone error before turnaround indicates that at least one block number had been read, and 
that the block wanted was two or more blocks from end zone in the direction opposite the 
search, (i.e., BLOCK 3 WANTED FWD or BLOCK 2677 WANTED BKWD.) 

The Start/Stop Turnaround Test has two formats for search error typeouts: 

DRIVE 1 
SEARCH BKWD 

0005 BLOCK (Tape should have been up to speed by this block) 

0006 FWD LAST POS (Last known tape position) 
0004 FOUND (Block number in error) 

0001 STAT B (If not 0001 indicales error was a status error) 
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In this case, notice that the difference between BLOCK and LAST POSITION is 1 and 
that the operations were in opposite directions. This indicates a turnaround error. If these 
lines differ by more than 1 , the error would have been on a start-up. 

The other error typeout format occurs if block numbers are not sequential. 

DRIVE 1 

SEARCH FWD 

BLK * ERROR 

0010 BLOCK 

0006 LAST (Block 6 should have been followed by block 7) 

0010 THIS (Not by block 10) 

0001 STAT B 



6.1 .2 Read Data Status Error Typeouts - The first three lines of the read-data typeouts are in the same 

format as the search typeouts. The first two lines contain drive number, operation and direction, and the 

third line is the block being operated on. Again, depending upon which test routine is being run, one of 

several typeouts could occur. 

DRIVE 1 

READ DATA FWD 
0046 BLOCK 
4301 STAT B 



DRIVE 2 

READ DATA BKWD 

0100 BLOCK 

4201 STAT B 

7757 

DRIVE 2 

READ DATA FWD 

0100 BLOCK 

PARITY ERROR EXPECTED 

0001 STAT B 

0200 



(Combination parity error and timing error) 

(This typeout is used by the Parity Generation Test. 
The last line of this typeout indicates the data pat- 
tern written to test parity. In this case, the reverse 
checksum is 20; CHECKSUM going forward was 75. 
The LPB at the end of a block in read data should 
always be 77 for normal operation). 

(This typeout is also used by the Parity Generation 
Test and could follow the one above. The typeout 
indicates that a parity error should have been gen- 
erated, but was not received. Again, the last line 
of the typeout indicates the data pattern written to 
test the parity circuitry. Notice the complement ob- 
verse relationship between the two data typeouts. In 
this case, the CHECKSUM has been rewritten to 02 
in WRITE ALL, it was 75 after WRITE DATA, and the 
LPB should have been 00 after reading the block. 
READ DATA and STATE CHECK going to and LPB 
not equal to 77 is 1 to PARITY ERROR. See paragraph 
9.6 for a complete description of the parity test.) 

DRIVE 4 

READ DATA FWD 
0077 BLOCK 
0001 STAT B 
7777 WC 

In the read data typeouts, the contents of the word count register (address 7754) are included 

only if the WC did not go to 0. Or if the DECtape status B was normal (0001) and the WC did not go to 0, 

the above typeout would occur. 
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6«1 .3 Checksum Error Typeouts - The Parity Generation Test writes various data patterns in the first 

and second characters of each block. Since the reverse checksum is written to 00, the checksum generate' 
by the TCOl should either be the complement of the first character in the block or if the first two char- 
acters are written should equal 11 . The following typeouts could occur if the parity generation is failing. 

DRIVE 1 
CKSUM ERROR 

2000 DATA (First word of block, as read from tape) 

7700 CK SUM (As read from tape in READ ALL, in this case should 

equal 5700). 

DRIVE 1 
CKSUM ERROR 

5151 \^f\'\k (As read from tape) 

5700 CK SUM (As read from tape in READ ALL, in this case should 

be 7700) 

6.1 .4 Write Data Status Error Typeo uts - Write data error typeouts also include drive, operation 

and direction, block being operated on^ and the error status. 

DRIVE 6 (This typeout indicates a mark-track error while doing 

WRITE DATA FWD a Write Data Forward on block 0765. The WC type- 

0765 BLOCK out indicates that the error occurred with 183 words 

6000 STAT B left to be written.) 
7715 WC 

DRIVE 7 (If STAT B indicates a normal block interrupt (0001) 

WRITE DATA BKWD and the WC has not gone to 0, this typeout occurs.) 

1000 BLOCK 
0001 STAT B 
1111 WC 

•si V 

6,1 .B Data Error Typeouts - A data error may or may not follow a parity error typeout; it could also 

occur without a parity error. Again, the first three lines of the typeout are the same as for search errors: 
drive, operation and direction, and block number. 

DRIVE 4 

READ DATA BKWD DATA ERROR 

0325 BLOCK 

0000 KNOWN (Data written) 

7773 UNKNOWN (Data read) 

7000 ADDRS KNOWN (Buffer Address of data written) 

6.1 .6 Error Halts - The cause of any error halt not accompanying a typeout can be found by examin- 

ing the program listing at the address of the halt. These may be caused by: 
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a. A status other than EZ while in MOVE TAPE. 

b. The AC not being cleared after an IOT766 or 764. 

c. AC bits to 7 equal to all Os when initially starting. 

d . Program interrupt and no DECtape skip. 

e. No program interrupt for 45 seconds. 

6 . 2 Error Recovery 

There ar e no manual error-recovery procedures. In the cases of read data and read errors in 
the Parity Test, the programs proceed to the next sequential block in an effort to gain more information 
about the failure. For search (except 0201) or write errors, the same operation is attempted again. 

In Search Test 0201, the program attempts to pick up the next block in sequence. 

Any error halt that occurs without a typeout may indicate a completely non-logical type of 
failure. Examine the program listing to determine the meaning of the halt. 

9. PROGRAM DESCRIPTION 



9.1 



Basic Motion Routine (0200) 



This routine is a visual verification of the operation of the DECtape drives and some sections 
of the TCOl Control. The sequence of operations is selected by keyboard input from the Teletype. The 
keys that may be typed to select operations are "F," "B," "S," "C," "W/' "R," and "D." All other 
keys will cause the execute table to be reset and previous selections to be lost. The operations selected 
by the individual keys are as follows: 

Key Operation 

F Start moving tape on the currently selected drive in the forward 

FWD (Typeout) direction. 

B Start moving tape on the currently selected drive in the backward 

BKWD (Typeout) direction. 

S Stop tape on the currently selected drive. 

STOP (Typeout) 

C Change drive selection and repeat from the beginning of the 

CHNG (Typeout) execute table or from the last "C." 

W Wait a variable number of blocks. The number of blocks to wait is 

WAIT (Typeout) typed in, immediately following the typeout "WAIT," and is a 

4-digit number from 0000 to 7711 . NOTE: The program does not 
actually count blocks but sits in an ISZ loop 18 msec for every 
increment typed in. 
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Key Operation 

R Repeat the sequence of operations from the start of the execute 

RPT (Typeout) table or from the last "R." Again, the number of times to re- 

peat is typed in immediately following the typeout "RPT" and 
is a 4-digit octal number from 0000 to 7777 . 

D Causes the sequence of operations previously typed in to be executed 

DO (Typeout) NOTE: "D" can only be typed in as the first character after a se- 

quence of operations has once been executed. This is true each 
time that the routine is restarted from address 0200. Typing a "D" 
as the first character causes the last sequence of operations to be 
executed . 

9.2 Search Find All Blocks (0201) 

Before a program can verify that the DECtape system can write correctly, it must prove that 
the system can read correctly. Since a DECtape with a, so-called, virgin tape pattern is not always 
readily available and DECtape with correctly written block numbers is usually available, the first ver- 
ification of read operations must be a Search Test. Search Find All Blocb moves the DECtape backward 
into the end zone, reads the tape forward and verifies that blocks are numbered 0000 to 2701; then moves 
the tape into forward end zone, reverses the tape and tests that blocks are numbered 2701 to 0000. If 
SWl 1 is 0, the processor halts; press CONTINUE, and the program will repeat. If SWl 1 is 1 , the pro- 
cessor will not halt and the program will repeat. 

9.3 Basic Search Routine (0202) 

In this routine, the tape is searched in either direction until a series of 129 block numbers is 
read ahd stored. (Or until end zone is reached or some error status is generated). The decision is made 
to either type out all of the block numbers or to have the program verify that the block numbers read are 
sequential. When started the program types: 

DRIVE 8 (or whichever drive is selected) 
TYPE IN F FOR FORWARD 
ALL OTHERS BACKWARD 

At this point, type in an "F" to search forward or any other key to search backwards. The program will 

search in the direction selected until an error status or end zone occurs, or until 129 block numbers have 

been read and stored in memory. It then types: 

XXXX STAT B (If an error status and then repeat the initial typeout) 

END ZONE (If the tape went into end zone before 129 blocks were 

read) 

NO BLOCKS (If no block numbers were read) 

XXXX FIRST BLOCK (First block number read) 
TYPE C FOR COMPARE 
ALL OTHERS PRINT 

14 
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To have the program verify that the block numbers are sequential, type in a "C." Any other character 
typed in causes the program to type out the complete series of block numbers. If a "C" Is typed, the 
program types out block numbers that are not sequential. The program always types the last block number 
read as follows: 

XXXX LAST 

9.4 Start/Stop/Turnaround Test (0203 ) 

When the ability to correctly read block numbers has been established, a more thorough test 

of the DECtape motion controls can be given. The Start/Stop/Turnaround Test verifies the following 

operations: 

TURN AROUND Both directions on BLOCK 

Start FORWARD/STOP 

Start BACKWARD/STOP 

Start FORWARDA^ait UP TO SPEED/Turnaround 

Start BACKWARDA^ait UP TO SPEED/Turnaround 

The sequence is repeated for the length of tape. Turnaround occurs in both directions on block 2701 . 

Since the tape is up to full speed before turnaround, the tape must be up to speed again by 

the time it returns to that same point on the tape. 

9.5 Write/Read Data Test (0204) 

The search routines establish a minimum capability to read known data from tape. This routine 
establishes the ability to write data and further establishes the ability to read data. The test includes 
eight selectable data patterns and three selectable modes of operation. The basic sequence of operation 
is write forward, read backward, read forward, write backward, read forward, read backward. The 
sequence may be selected for 1 block at a time, 32 blocks at a time, or the length of tape. The program 
recycles and runs until STOP is depressed. At the end of each complete sequence (the length of tape), 
the program types out the pattern number and END. The eight write patterns are as follows: 

0000 

1 7717 

2 0000, 7777, 0000 

3 2525 

4 5252 

5 0707 

6 7070 

7 2525, 5252, 2525 

The pottern to be written is selected in SWITCH REGISTER bits 9, 10, and 1 1 . Place the number of the 
pattern desired in these switches. 
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1 


1 





or 




1 


1 


SW4 = 




SW4=1 
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Switches 7 and 8 are used to select the sequence of operation as Follows: 

$W7 SW8 Operation 

Write and read sequence the length of the tape. 
Write and read sequence in 32 block increments. 

Write and read sequence one block at a time. 

Take the next pattern to be exericsed from SWs 9, 
10, and 11. 

Exercise sequentially through the patterns; i.e., 
after one complete sequence the length of tape 
with pattern number 3, exercise pattern number 4, 
after exercising 4 go to 5. Patterns are not changed 
until block 2701 has been written backwards. 

SWS = Type out parity error information and data errors. 

SW3 = 1 Ignore parity and data errors. Mark track, timing, 

and select errors are not ignored. 

SW6 = Sequence from write to read data . 

SW6 = 1 Write data only. 

SWS = Sequence from read data to write data. 

SW5 = 1 Read data only (SW5 overrides SW6). 

9.6 Parity Generation and Checking Test (0205) 

The complete test of parity generation and checking requires several passes over a series of 
blocks. The steps that the program takes for a complete test of the parity circuitry are eg follows: 

STEP 1 Write reverse checksums to (Actually written to 77 going backward 

and should equal 00 going forward). 

STEP 2 Write data patterns 

Various data patterns are written in the first and second characters of 

each block and the rest of the block is written to zeros (Note: the 

checksums generated are either the complement of the first character 

or 77 Q, if the first two characters are written), 
o 

STEP 3 Read/Verify checksums 

The checksums are read back and verified to be the complement of the 

first character in the block or 77, if the first two characters of block 

are non-zero. 

STEP 4 Test no parity errors 

The blocks are read in both directions and no parity errors should be 
generated . 
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STEP 5 Write blocks to wrong parity 

The checksums are written to be the same as the first character in the 
block so that the LPB will not equal 77 when the block is read. 

STEP 6 Test for parity errors 

The blocks are read in both directions and parity errors should be 
generated. 

The program then repeats from step 1 and will run until STOP is depressed. 

If an error typeout is generated indicating PARITY ERROR EXPECTED, the contents of the LPB 

can be determined by the following procedure: 

a. The typeout includes the first data word of the block if read forward or the last word of 
the block if read backward (acutally same word but complement obverse if read backward). 

b. This word will contain either one or two non-zero 6-bit characters, (FWD); or one or two 
characters that do not equal 77 (BKWD). 

c. If there is only one 6-bit character, the LPB should be all Os at the time it is strobed for 
parity error. This is true whether read occurred in a forward of a backward direction. 

d. If the read direction is forward and there are two non-zero characters in the first word, 
the LPB should be equal to one of the characters at the time it is strobed for parity error; i.e., 
WORD = 0202, LPB = 02. 

e. If the read direction is backward and there are two characters not equal to 77 , the LPB 
should be equaled the complement of one of the characters when it was strobed for parity 
error; i.e., WORD = 5757, LPB = 20. 

9.7 Write Data Scope Loop (0206) 

This routine starts forward in search. When a block number is found, the program changes to 
write data for one block, then back to search and then to write data again. The program continues in 
that mode until end zone. Upon reaching end zone the tape is started backwards in search and is again 
changed to write data when a block is found. Each time an end zone interrupt is received, the tape 
direction is reversed. For any other error status, the function is reset to search and tape direction is not 
reversed. Any of the eight data patterns in the Write/Read Data Test may be selected by placing the 
pattern number in switches 9, 10, 11 . (See paragraph (5.1 .3). The routine has to be restarted from 0207 
to change pattern selection. This routine contains error halts if the AC is not cleared after an IOT764 
or 766. 
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9.8 Read Scope Loop (0207) 

This routine starts forward in read data and reads in 129-word blocks. When end zone is reached 
the tape is run backwards in read data. For any other error, the tape continues in read data in the same 
direction. Each time an end zone is reached, tape direction is reversed. This routine also contains error 
halts that indicate the accumulator was not cleared after an IOT766 or 764. 

9.9 Search Scope Loop (0210 ) 

This routine starts forward in search function and reverses direction at end zones. The DEC- 
tape flag and all error statuses except end zone are ignored. The program starts forward in search and 
displays the last block number received in the AC while doing an ISZ/JMP .-1 loop for approximately 
13 msec. At completion of the ISZ loop, the program tests for end-zone status and complements the 
direction bit if end zone was reached. If end zone was not reached, search enables are reset and the 
motion bit in status A is set to a 1 if it was cleared. This routine contains error halts if the AC is not 
cleared after an IOT766 or 764 and if the motion bit is not cleared by EZ. 
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10. 



LISTING 



/TC01 BASIC EXERCISER TAPE 
/PAGE CONSTANTS AND TEMp 
IOT«6000 
9Uf'FRS«6774 



1 
STORAG 







8uFrR2»BurFRS*201 






8UFFR3»BUFFR2*201 


0001 


5402 


»1 

JMP 1 2 

• 20 




0020 


0000 


RECORD, 





0021 


0000 


blkfnd. 





0022 


0000 


POSITN, 





0023 


0000 


Direct* 





0024 


0000 


USTBLK, 





0025 


0021 


idcon. 


BLKFND 


0026 


0020 


»ecrdk, 


RECORD 






/ADDRESSES 


FOR INDIR 


0027 


7754 


rtCUOC, 


7754 


0030 


7755 


cauoc, 


7755 


0031 


6774 


8F1WD1, 


BUFFRS 


0032 


6773 


BFILOC, 


BUFFRS-l 


0033 


7174 


8r2L0C, 


BUFFR2-1 


0034 


7375 


8F3L0C, 


8UFFR3-1 






/SUBROUTINE 


address 


0035 


0600 


srchit, 


search 


0036 


0400 


REWIND, 


REPOSI 


0037 


0437 


NEWDRV, 


CHNGDR 


0040 


0234 


HAITI. 


WTINT 


0041 


0313 


wthalf. 


WT500 


0042 


5000 


oataco, 


CODATA 


0043 


4100 


savpad. 


DAPSAV 


0044 


1310 


errstp, 


ERSTP 


0045 


1511 


ORlVTY, 


TYORV 


0046 


1424 


RDATTY, 


TYRDAT 


0047 


1316 


SBTYPE, 


TSTATB 


0050 


1442 


WDATTY, 


TYWDAT 



/FOR INTERRUPTS 



/BLOC<! OPERATED ON 

/Bioc<. Found By search 

/TO Gitr TAPE POSITION 
/TO G-;ir LAST DIRECTION 
/TO G£rr LAST BLOCK WRITTEN 
/FOR SRCH CA 
/FOR TyPEOUTS 

AND d:a 
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0051 


1261 


typcon. 


TYCONT 


0032 


1411 


srchty. 


TYSRCH 


0053 


4000 


erssta, 


SSTAER 


0054 


3600 


SSTFWD. 


SSTAFW 


0055 


3651 


SSTBkW. 


SSTABW 


0056 


1^00 


TYPTEX, 


TYTEXT 



/TEMP STORAGE FOR DRiVE SELECTION 



0057 0000 CDRIVE, 

0060 0000 UnFUNC» 

0061 0000 HsBlTS, 

0062 0000 COHBIT* 



/DRIV-Ii NUMBER AND 
/POSITIONED FOR STAT 
/DRIViS SELECTED 



/OTHER CONSTANTS 



0063 


7760 


K7760, 


7760 


0064 


7577 


K7577, 


7577 


0065 


0604 


K0604f 


0604 


0066 


4000 


K4000I 


4000 


0067 


7767 


K7767, 


7767 


0070 


7700 


K7700, 


7700 


0071 


0077 


<0077, 


77 


0072 


0240 


K0240, 


240 


0073 


0007 


K0007* 


7 


0074 


0020 


K0020< 


20 


0075 


0200 


K0200, 


200 


0076 


0003 


K0003* 


3 


0077 


5077 


K5077, 


5077 


0100 


2701 


K2701, 


2701 


0101 


0614 


<06l4. 


614 


0102 


0400 


K0400, 


400 


0103 


0214 


K02l4» 


214 


0104 


0016 


SFAFK, 


16 


0105 


0006 


SrABK. 


6 


0106 


7763 


S6ABK, 


7763 


0107 


7772 


SBAFK, 


7772 


0110 


1000 


E2BIT, 


1000 


0111 


0000 


POSSAV* 





0112 


0000 


OlRSAV. 





0113 


0000 


blkinc* 





0114 


0000 


OIRFLG, 





0115 


0050 


<0050» 


50 


0116 


0030 


K0030, 


30 


0117 


0030 


3LKBTS, 


0030 


0120 


0020 


BlKBIT, 


0020 


0121 


0040 


K0040> 


40 


0122 


0170 


«0170, 


170 


0123 


0100 


K0100. 


100 


0124 


0101 


<0101, 


101 


0125 


0204 


K0204, 


204 


0126 


5076 


<5076, 


5076 


0127 


0037 


<0037, 


37 


0130 


0010 


<0010. 


10 
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/SELECT AND START TESTS 
/SWITCHES Ik MASTER BlT SELECTION/ 
/FOR TAPES 

• 200 



0200 


4211 


JMS 


CIPHER 




0201 


4211 


JMS 


CIPHER 




0202 


4211 


JMS 


CIPHER 




0203 


4211 


JMS 


CIPHER 




0204 


4211 


JMS 


CIPHER 




0205 


4211 


JMS 


CIPHER 




0206 


42X1 


JMS 


CIPHER 




0207 


4211 


JMS 


CIPHER 




0210 


4211 


JMS 


CIPHER 




0211 


0000 


CIPHER, 







0212 


7404 


OSR 






0213 


0063 


AND 


K7760 




0214 


7440 


SZA 






0215 


5220 


JMP 


.%3 




0216 


7402 


HLT 






0217 


5212 


JMP 


CIPHER*1 




0220 


3061 


OCA 


MSBITS 




0221 


6774 


lOT 


774 


/CLR STATUS B MEM FIELD 


0222 


1061 


TAD 


MSBITS 




0223 


7402 


HLT 






0224 


7200 


CLA 






0225 


1211 


TAD 


CIPHER 




0226 


1064 


TAD 


K7577 


/-201 


0227 


1277 


TAD 


TSTTBL 




0230 


3232 


DCA 


,♦2 




0231 


4633 


JMS 


I .♦2 




0232 


5700 


JMP 


I TSTTBL*1 


/GO TO TEST S£lECTED 


0233 


0417 


RSFDRV 








/ABOVE JMP I IS CHANCED TO JMP I fST TBL*1 ♦ 






/TEST NUMBER SELECTED 


0234 


5234 


WTINT, 


JMP , 




0235 


1272 


TAD 


WTIJMP 




0236 


3001 


DCA 


1 




0237 


1273 


TAD 


WTIJMP^l 




0240 


3002 


DCA 


2 




0241 


3274 


DCA 


WTIJMP*2 




0242 


1276 


TAD 


K4215 




0243 


3275 


DCA 


WTIJMP*3 




0244 


6001 


ION 






0245 


2274 


ISZ 


WTIJMP*2 


/WAIT A MAXIMJM 


0246 


5245 


JMP 


.-1 


/O^ 35 SECOMDS 


0247 


2275 


ISZ 


WTIJMP*3 


/FOR AN INTER=?UPT 


0250 


5245 


JMP 


1-3 




0251 


6002 


lOF 






0252 


7402 


HLT 






0253 


5252 


JMP 


.-1 





THE 
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0254 


6771 


IrECD, IOT 771 


/DIF 3R DTEF s 1 


0255 


7410 


SKP 




02^6 


5261 


JHP .♦S 




0257 


7402 


HLT 




0260 


5254 


JMP IRECD 




0261 


6772 


IOT 772 




0262 


3274 


OCA WT1JMP*2 




0263 


1634 


TAD I WTINT 




0264 


7040 


CMA 




0265 


0274 


AND WTIJMP*2 




0266 


7650 


SNA CLA 




0267 


2234 


ISZ WTINT 




0270 


2234 


ISZ WTINT 




0271 


5634 


JMP I WTINT 




0272 


5402 


^JlJHP, JMP I 2 




0273 


0254 


IRECD 




0274 


0000 







0275 


0000 







0276 


4215 


K4215, 4215 




0277 


5700 


TSTTBl* JMP I .*! 






/STARTING ADDRESSES 


OF TESTS 


0300 


2000 


MVTEST 




0301 


2400 


SRCHl 




0302 


2600 


SERCH2 




0303 


3200 


SSTRNA 




0304 


4400 


WRTTST 




0305 


5600 


PARTST 




0306 


1600 


WRSCOP 




0307 


1667 


ROSCOP 




0310 


1734 


SRSCOP 




0311 


7402 


HLTNS. WLT 


/TEST SELECTED 


0312 


5311 


JMP ,-1 


/NOT AVaILABL£i 


0313 


5313 


^T500, JMP • 




0314 


7200 


CLA 




0315 


3274 


OCA WtIJMP*2 


/jME Out 


0316 


1325 


TAD KM25 




0317 


3275 


OCA WTIJMP*3 


/APPROX 500 MSEC 


0320 


2274 


ISZ WTIJMP*2 




0321 


5320 


JMP .-1 




0322 


2275 


ISZ WTIJMP*3 




0323 


5320 


JMP .-3 




0324 


5713 


JMP I WT500 




0325 


7747 


Km25. 7747 





■■ 
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/REWIND ALL DRIVES SELECTED 
/TO END ZONE AT START OF TARE 

0400 5200 r?EPOSI» JMP , 

0401 4217 JMS RSFDRV /RESET P0INTR3 TO FIRST DRIVE 

0402 1065 TAD K0604 /MOVE BACKWARDS 

0403 1060 TAD UNFUNC /♦POSITIONED JNlT NO 

0404 6766 lOT 766 /SET STATUS A 

0405 4440 JMS I WAlTI 

0406 5001 5001 /INDICATE EXP£CT END 

0407 7402 HLT /NOT STATUS EXPECTED 

0410 7240 CLA CMA 

0411 3422 DCA I POSJTN /INDICATE END IONE 

0412 7240 CLA CMA 

0413 3423 DCA I DIRECT /INDICATE BAC<WARDS 

0414 4237 JMS CHNGDR /SET UP NEXT DRIVE 

0415 5202 JMP REP0SI*2 /REMIND NEXT 3RIVE 

0416 5600 JMP I REPOSI /GOT ALL DRiViS, EXIT 

/RESET CURRENT DRIVE POINTERS TO 
/FIRST DRIVE SELECTED 





0417 


5217 


RSFDRV. 


JMP . 






0420 


7200 


CLA 








0421 


3057 


DCA 


CDRIVE 


/SET INlTIALLr TO 




0422 


1066 


TAD 


K4000 




^ ^^ 


0423 


3062 


DCA 


comBit 




0424 


1061 


TaD 


MSglTS 






0425 


0062 


AND 


COMBIT 






0426 


7640 


S2A 


CLA 


/THIS Drive selected 




0427 


5235 


JMP 


RSFDRl 


/YES* Set poimter 




0430 


1062 


TAD 


COMBIT 






0431 


7110 


CLL 


RAR 






0432 


3062 


OCA 


COMBIT 


/MOVE COMPARE BIT 




0453 


2057 


IS2 


CDRIVE 


/INCREMENT DRIVE NUM. 




0434 


5224 


JMP 


RSFDRV*5 










/HAVE FOUND FIRST 


DRIVE SELECTED 




0435 


4261 


RSFDRl, 


JMS GNPTRS /GENERATE CONTROL POINTERS 




0436 


5617 


JMP 


I RSFDRV 


/EXIT 
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0437 


5237 


0440 


7200 


0441 


1062 


0442 


7110 


0443 


0067 


0444 


7440 


0445 


5251 


0446 


4217 


0447 


2237 


0490 


5637 


0451 


3062 


0452 


2057 


0453 


1062 


0454 


0061 


0455 


7650 


0456 


5240 


0457 


4261 


0460 


5637 



/SELECT NEXT DRIVE OR 

/RESET TO FIRST DRIVE AND SKIP 

ChNGDR, JMP . 



F^^^B^ 



C| A 

TAD COMBIT 
CLL RAR 
AND K7767 

sza 

JMP ,*4 

JMS RSFDRV 

ISZ CHNGDR 

JMP I CHNGDR 

DCa COMglT 

ISZ CORIVE 

TaD COMbIT 

AND MSbITS 

SNa CLa 

JMP CHNGDR*! 

JMS GNPTRS 
JMP I CHNGDR 



/GET DRIVE CO'iPARE BIT 
/MOVE IT TO N£XT 

/LAST DRiyE NJM 7 

/NO 

/RESET TO FIR5T 

/INCR. EXIT. SKIP 
/EXIT 



/THIS Drive selected 

/NO 

/GENERATE DRWE POINTERS 



/GENERATE LAST RECORD, 

/DIRECTION AND UNIT NUMBER POINTERS 

/FOR DECTAPE FU^CTIonS 



0461 


5261 


5NPTRS, 


JMP 


0462 


1057 


TAD 


CDRIVE 


0463 


7112 


CLL 


RTR 


0464 


7012 


RTR 




0465 


3060 


DCA 


UNFUNC 


0466 


1057 


TAD 


CORIVE 


0467 


1300 


TAD 


PNTRS 


0470 


3022 


DCA 


POSITN 


0471 


1057 


TAD 


CDRIVE 


0472 


1311 


TAD 


PNTRS*11 


0473 


3023 


OCA 


DIRECT 


0474 


1322 


TAD 


PNTRS^22 


0475 


1057 


TAD 


CDRIVE 


0476 


3024 


DCa 


LSTBLK 


0477 


5661 


JMP 


I GNPTRS 



/DRIVE NUMBER 

/POSITION TO 3IITS 0»li2 

/DRIVE NUMBER 

/♦ POSf PNTR ADDRS, 

/FOR INDIRECT3: 



/♦ DIRECTION 'NTR 
/FOR INDIRECT3. 
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0500 0501 PNTRS, ,4>1 /TO G£fr LAST RECORD NUMBER 

/FOR DRIVE 8 

n 

/2 
/3 
/4 
/5 
/6 

n 

*1 /TO GET LAST JilRECTION 

/DIRECTION - JNIT 8 
/I 
/2 
/3 
/4 
/5 
/6 
/7 

♦1 /TO GET LAST WRITTEN 

/8 

/i 

/2 
/3 
/4 
/5 
/6 
/7 



0501 


0000 





0502 


0000 





0503 


0000 





0504 


0000 





0505 


0000 





0506 


0000 





0507 


0000 





0510 


0000 





0511 


0512 


t 


0512 


0000 





0513 


0000 





0514 


0000 





0515 


0000 





0516 


0000 





0517 


0000 





0520 


0000 





0521 


0000 





0522 


0523 


f « 


0523 


0000 





0524 


0000 





0525 


0000 





0526 


0000 





0527 


0000 





0530 


0000 





0531 


0000 





0532 


0000 
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/SEARCH ROUTINE 

/FIND BLOCK IN (RECORD) IN 

/DlRFLG»7777 BKWD «0 FWD 

• 600 



0600 


5200 


SEARCH, 


JMP . 




0601 


1114 


TAD 


DIRFLG 




0602 


7100 


CLL 






0603 


7640 


S2A 


CLA 




0604 


7120 


STL 






0605 


1076 


TAD 


K0003 


/MAKE'S IF FWD 


0606 


7420 


SNL 






0607 


7041 


CMA 


lAC 


/MAKE 3 IF BK-^D 


0610 


1020 


TAD 


RECORD 


/BLOCk ♦ or - 2 FOR TA 


0611 


3351 


DCA 


TAPONT 




0612 


1114 


TAD 


DIRFLG 




0613 


7650 


SNA 


CLA 


/FORWARD IS 


0614 


1102 


TAD 


K0400 


/START Backward 


0615 


1103 


TAD 


K0214 




0616 


1060 


TAD 


UNFUNC 


/♦DRIVE NUMBER! 


0617 


6766 


lOT 


766 




0620 


7040 


CMA 






0621 


3347 


DCA 


BLKFLG 




0622 


1025 


TAD 


lOCON 




0623 


3430 


DCA 


I CALOC 




0624 


4440 


JMS 


I WAITI 


/WAIT For ndr'Ial 


0625 


0001 


1 






0626 


5321 


JMP 


SRE2TS 


/COULD BE EZ 


0627 


4255 


JMS 


SRCNCK 


/FOUND TURN ABOUND 


0630 


5234 


JMP 


SRTAFN 


/yes» Turn around 


0631 


5234 


JMP 


SRTAFN 


/PAST IT. TJR>J AROUND 


0632 


6764 


lOT 


764 


/NOT REACHED rET 


0633 


5224 


JMP 


.-7 




0634 


1020 


srtafn. 


TAD RECORD 


0635 


3351 


DCA 


TAPONT 




0636 


6761 


lOT 


761 




0637 


7040 


CMA 






0640 


0075 


AND 


K0200 


/IN C<iSE MOTION 


0641 


1102 


TAD 


K0400 




0642 


6764 


lOT 


764 


/CHANGE DIRECriON 


0643 


7040 


CMA 






0644 


3347 


DCA 


BLKFLG 




0645 


4440 


JMS 


I WAITI 




0646 


0001 


1 




/HAS TO BE MO^MAL 


0647 


5746 


JMP 


I SRCHER 


/OR ERROR 


0650 


4255 


JMS 


SRCNCK 




0651 


5600 


JMP 


I SEARCH 


/FOUND BLOCK, EXIT 


0652 


5746 


JMP 


I SRCHER 


/WEnT PAST, E^ROR 


0653 


6764 


lOT 


764 


/NOT THERE YET 


0654 


5245 


JMP 


.-7 





■■■■■I 
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0655 


5255 


srCnck, 


JMP 


• 


0656 


2347 


rsz 


BLKFLG 


/FIRST BLOCK IN 


0657 


7410 


SKP 




/NO 


0660 


5274 


JMP 


sbcons 




0661 


6761 


lOT 


761 




0662 


0102 


AND 


K0400 




0663 


7640 


SZA 


CLA 


/BACKWARD IS 


0664 


7040 


CMA 




/«! 


0665 


7450 


SNA 




/FORWARD IS 


0666 


7001 


lAC 




/♦I 


0667 


1350 


TAD 


PREBLK 




0670 


7041 


CMA 


lAC 




0671 


1021 


TAD 


BLKFND 


/BLOCKS SEQUENTIAL 


0672 


7640 


SZA 


CLA 




0673 


5746 


JMP 


I SRCHER 


/NO, ERROR 


0674 


1351 


SBCONS, 


TAD TAPONt 


0675 


7041 


CMA 


lAC 




0676 


1021 


TAD 


BLKFND 




0677 


7450 


SNA 




/FIND BLOCK Y£(r 


0700 


5655 


JMP 


I SRCNCK 


/YES» Ta OR EKIT 


0701 


2255 


ISZ 


SRCNCK 


/STEP ADDRS 


0702 


7100 


CLL 






0703 


7710 


SPA 


CLA 




0704 


7120 


STL 




/L«l IS BLK F^D LESS 


0705 


6761 


IDT 


761 




0706 


0102 


AND 


K0400 




0707 


7640 


SZA 


CLA 


/FORWARD 


0710 


5316 


JMP 


1^6 


/NO BACKWARD 


0711 


7430 


SZL 




/FORWARD AND ILKFND 


0712 


2255 


ISZ 


SRCNCK 


/LESS IS NOT THERE YET 


0713 


1021 


TAD 


BLKFND 




0714 


3350 


OCA 


PREBLK 




0715 


5655 


JMP 


I SRCNCK 




0716 


7420 


SNL 




/BACKWARD kW BLKFND 


0717 


2255 


ISZ 


SRCNCK 


/LESS Is GONE PAST 


0720 


5313 


JMP 


,-5 





0721 


6772 


SrEHTS, 


lOT 77 


0722 


0110 


AND 


EZBIT 


0723 


7650 


SNA 


CLA 


0724 


5746 


JMP 


I SRCHER 


0725 


1351 


TAD 


tapont 


0726 


7510 


SPA 




0727 


5333 


JMP 


.♦4 


0730 


1126 


TAD 


K5076 


0731 


7710 


SPA 


CLA 


0732 


5342 


JMP 


,♦10 


0733 


7200 


CLA 




0734 


1075 


TAD 


K0200 


0735 


6764 


IDT 


764 


0736 


4440 


JMS 


I WAITI 


0737 


5000 


5000 


0740 


5746 


JMP 


I SRCHER 


0741 


5234 


JMP 


SRTAFN 


0742 


1347 


TAD 


BLKFLG 


0743 


7700 


SHJ: 


CLA 


0744 


5746 


JMP 


I SRCHER 


0745 


5234 


JMP 


SRTAFN 


0746 


1000 


srcher, 


SRHERR 


0747 


0000 


blkflg, 





0750 


0000 


preblk. 





0751 


0000 


tapont. 
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/NOT END 20\IE» ERROR 

/BLOCK OR 1 
/BLOCK 2700 0^. 2701 



/SET MOTION 

/WAIT For E2 again 



/DO Turn arou^jd 

/IF EZ WAS 

/FIRST INT WAS VALID 

/IF NOT FIRS IS INVALID 



/SEARCH ERROR TYPEOUT 

• 1000 

1000 4444 SrHERR, JMS I ERRSTp 

1001 4452 JMS ! SRCHTY 

1002 1026 TAD RECRDK 

1003 4451 JMS I TYPCON /TYpE BLOCK SIaRCHED 

1004 4456 JMS I TYPTEX 

1005 0042 42 

1006 5457 5457 

1007 4353 4353 

1010 0067 67 

1011 4156 4156 

1012 6445 6445 

1013 4400 4400 

1014 7700 7700 

1015 1114 TAD OIRFLG 

1016 7650 SNA CLA 

1017 5222 JMP .^S 

1020 4675 JMS I BACKTy 

1021 7410 SKP 

1022 4676 JMS I FORDTY 

1023 1025 TAD IDCON 

1024 4451 JMS I TYPCON /TYPE BLOCK FDUND 

1025 4456 JMS I TYPTEX 

1026 0042 42 

1027 5457 5457 
1030 4353 4353 



■■■■■■ 



MAINDEC-08-D3BB-D 
29 



1031 


0046 


46 




1032 


5765 


5765 




1033 


5644 


5644 




1034 


7700 


7700 




1035 


7040 


CMA 




1036 


1671 


TAD I SEKONS 


/BLKFLG 


1037 


7710 


§PA CLA 


/MORE Than i no 


1040 


5252 


JMP ,*12 


/NO 


1041 


1272 


TAD SEK0NS*1 


/preblk 


1042 


4451 


JMS I TYPcON 


/TYPE LAST 3L3fcK 


1043 


4456 


JMS I TYPTEX 


/FOUND 


1044 


0054 


54 




1045 


4163 


4163 




1046 


6400 


6400 




1047 


4254 


4254 




1050 


5743 


5743 




1051 


5377 


5377 




1052 


2671 


Is? I SEKONS 




1053 


7000 


NOP 




1054 


1271 


TAD SEKONS 




1055 


4451 


JMS I TYPCON 


/TYPE NUMBER OF 


1056 


4456 


JMS I TYPTEX 


/BLKS NUM REAOi 


1057 


0042 


42 




1060 


5457 


5457 




1061 


4353 


4353 




1062 


6300 


6300 




1063 


6245 


6245 




1064 


4144 


4144 




106S 


7700 


7700 




1066 


4447 


JMS I SBTYPE 




1067 


5670 


JMP 1 .-^l 




1070 


0601 


SEARCHtl 




1071 


0747 


SEKONS, BLKFLG 




1072 


0750 


PREBLK 




1073 


1074 


.♦1 




1074 


0000 







1075 


1545 


backty, TYBKW 




1076 


1555 


f'ORDTY, TYFWD 
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/TYPE TEXT ROUTINE 










•1200 






1200 


5200 


tyText. 


JMP . 




1201 


7200 


CLA 






1202 


1600 


TAD 


I TYTEXT 


/GET NEXT 2 C^ARACTERS 


1203 


7040 


CMA 




/MAKE - 


1204 


3307 


OCA 


TXSTOR 




1205 


2200 


ISZ 


TYTEXT 




1206 


1307 


TAD 


TXSTOR 




1207 


7440 


SZA 




/CARRIAGE RETJRN - LINE FEED 


1210 


5213 


JMP 


.♦3 


/NO 


1211 


4242 


JMS 


CRLFLF 


/CR LF 


1212 


5201 


JMP 


TYTEXT*1 


/GET NEXT 


1213 


0070 


AND 


K7700 


/CLEA^i TO UPR CHAR 


1214 


7450 


SNA 




/END OF MESSAGE 


1215 


56e^0 


JMP 


1 TYTEXT 


/YES 


1216 


7012 


RTR 




/MOVE 


1217 


7012 


RTR 




/OVER 


1220 


7012 


RTR 




/6 PLACES 


1221 


4230 


JMS 


TYCHAR 


/OUTPUT 


1222 


1307 


TAD 


TXSTOR 




1223 


0071 


anO 


K0077 




1224 


7450 


SNA 




/END OF MESSA3E 


1225 


5600 


JMP 


1 TYTEXT 


/YES EXIT 


1226 


4230 


JMS 


TYCHAR 


/OUTPUT 


1227 


5201 


JMP 


TYTEXT*1 


/GET NEXT 2 


1230 


5230 


TyCHAR, 


JMP , 




1231 


7040 


CMA 




/MAKE * AGAIN 


1232 


0071 


AND 


K0077 


/CLEA^i TO LOWER 6 


1233 


1072 


TAD 


K0240 


/MAKE ASCII 


1234 


6046 


TLS 




/OUTPUT 


1235 


6041 


TSF 




/WAIT FLAG 


1236 


5235 


JMP 


.-1 




1237 


7200 


CLA 






1240 


6042 


TCF 




/CLEAR FLAG 


1241 


5630 


JMP 


I TYCHAR 


/DO NEXT 


1242 


5242 


crlflf. 


JMP 1 




1243 


1257 


TAD 


K0215 


/CARRIAGE RETURN 


1244 


6046 


TLS 






1245 


6041 


TSF 






1246 


5245 


JMP 


.-1 




1247 


7200 


CLA 






1250 


1260 


TAD 


K0212 


/LIME FEED 


1251 


6046 


TLS 






1252 


6041 


TSF 






1253 


5252 


JMP 


,-1 




1254 


6042 


TCF 






1255 


7200 


CLA 






1256 


5642 


JHP 


I CRLFLF 




1257 


0215 


<0215. 


215 




1260 


0212 


<0212. 


212 
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/TYPE CONTENTS OF ADDrESS In AC 



1261 5261 TyCONT, JMP 

3.262 3307 DCA TXSTOR 

t263 1707 TAD I TXSTOR 

1264 3307 DCA TXSTOR 

1265 4242 JMS cRi-f'L^ 

1266 4273 JMS TYCOVR 

1267 4273 JMS TYCOVR 

1270 4273 JMS TYCOVR 

1271 4273 JMS TYCOVR 

1272 5661 JMP I TYCONT 

1273 5273 TyCovR, JMP 

1274 1307 TAD TXSTOR 

1275 7006 RTL 

1276 7004 RAL 

1277 3307 OCA TXSTOR 

1300 1307 TAD TXSTOR 

1301 7004 RAL 

1302 0073 AND K0007 

1303 1074 TAD K0020 

1304 7040 CMA 

1305 4230 JMS TYCHAR 

1306 5673 JMP I TYCOVR 

1307 0000 TXSTORf 



/SAVE ADDRESS 
/GET CONTENTS 

/CARRIAGE RETJRN - LINE FEED 
/TYPE UPPER OCTAL 



/MAKE - FOR 
/OUTPUT 



1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1330 
1331 
1332 



/STOP TAPE ON ERROR, Li:AVE FLAGS: SET 
5310 ERSTP, JMP . 

6761 lOT 761 

0075 AND K0200 

1076 TAD K0003 

6764 lOT 764 

5710 JMP I ERSTP 
5316 TSTaTB, JMP , 

6772 lOT 772 

3331 DCA SBRECV 

1332 TAD SBRECV*1 

4451 JMS I TYPCON 

4456 JMS I TYPTEX 

0063 63 

6441 6441 

6400 6400 

4277 4277 

5716 JMP I TSTATB 
0000 
1331 



SBRECV, 
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•1400 






/TYPE MOVE AND DIRECTION 


1400 


5200 


tymove, JMP . 


1401 


4311 


JMS TYDRV 


1402 


4456 


JMS I TYPTEX 


1403 


7777 


7777 


1404 


5557 


5557 


1405 


6645 


6645 


140« 


0077 


0077 


1407 


4336 


JMS TYDIR 


1410 


5600 


JMP I TYMOVE 
/TVPE SEARCH DIRECTION AND MODE 


1411 


5211 


TySRCH. JMP « 


1412 


4311 


JMS TYDRV 


1413 


4456 


JMS I TYPTEX 


1414 


7777 


7777 


141$ 


6345 


6345 


1416 


4162 


4162 


1417 


43$0 


4350 


1420 


0077 


0077 


1421 


4336 


JMS TYDIR 


1422 


4363 


JMS TYMOOE 


1423 


5611 


JMP I TYSRCH 
/TYPE READ DATA DIRECTION AND MOOi 


1424 


5224 


TYRDAT, JMP , 


1425 


4311 


JMS TYDRV 


1426 


4260 


JMS TYREAD 


1427 


4275 


JMS TYDATA 


1430 


4336 


JMS TYDIR 


1431 


4363 


JMS TYMOOE 


1432 


5624 


JMP I TYRDAT 
/TYPE READ ALU DIRECTION AND MODE 


1433 


5233 


TyRALL, JMP , 


1434 


4311 


JMS TYDRV 


1435 


4260 


JMS TYREAD 


1436 


4303 


JMS TYALL 


1437 


4336 


JMS TYDIR 


1440 


4363 


JMS TYMODE 


1441 


5633 


JMP I TYRALL 
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/TYPE WRITE DATA DIRECTION AND MOJE 



1442 


5242 


TyWDAT, JMP , 




1443 


4311 


JMS TYORV 




1444 


4266 


JMS TYWRIT 




144$ 


4275 


JMS TYOATA 




1444 


4336 


JMS TYDIR 




1447 


4363 


JMS TYMOOE 




14S0 


5642 


JMP t TYWDAT 








/TYPE WRITE ALL DIRECTION AND M00£ 


1451 


5251 


TYWalL, JMP , 




1452 


4311 


JMS TYDRV 




1453 


4266 


JMS TYWRIT 




1454 


4303 


JMS TYALL 




1459 


4336 


JMS TYDIR 




1454 


4363 


JMS TYMOOE 




1457 


5651 


JMP I TYWALL 
/TYPE READ 




1460 


5260 


TyREAD, JMP . 




1461 


4456 


JmS I TypTEX 




1462 


6245 


6245 




1463 


4144 


4144 




1464 


0077 


0077 




146S 


5660 


JMP I TYREAD 
/TYPE WRITE 




1466 


5266 


TYWRIT, JMP . 




1467 


4456 


JMS I TYPTEX 




147i 


6762 


6762 




1471 


5l64 


5164 




1472 


4500 


4500 




1473 


7700 


7700 




1474 


5666 


JMP I TYWRIT 
/TYPE DATA 




1475 


5275 


TYOATA, JMP . 




1476 


4456 


JMS I TYPTEX 




1477 


4441 


4441 




1500 


6441 


6441 




1501 


0077 


0077 




1502 


5675 


JMP I TYDaTa 
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/TVPE ALL 


150 3 


53^3 


TyALL, JMP . 


1504 


4456 


JMS I TYPTEX 


1505 


4154 


4154 


1506 


5400 


5400 


150 7 


7700 


7700 


1510 


5703 


JMP I TYALL 
/TYPE DRIVE AND NUMBER 


1511 


5311 


TyDRV» jMP , 


1512 


4456 


JMS I TYPTEX 


1513 


7777 


7777 


1514 


7777 


7777 


1515 


4462 


4462 


1514 


5166 


5166 


1517 


4500 


4500 


1520 


0077 


0077 


1521 


1057 


TAD CDRIVE 


1522 


7450 


SNA 


1523 


1130 


TAD K0010 


1524 


1335 


TAD K260 


1525 


6046 


TLS 


1526 


6041 


Tsr 


1527 


5326 


JMP ,'1 


1530 


7200 


CLA 


1551 


4456 


JMS I TYPTEX 


1532 


7777 


7777 


1533 


7700 


7700 


1534 


5711 


JMP I TYDRV 


1535 


0260 


K260, 260 

/TYPE FORWARDS OR BACKWARD 


1536 


5336 


TyDip, JMP , 


1537 


6761 


IqT 761 


1540 


0102 


AND K0400 


1541 


7650 


SNA CLA 


1542 


5353 


JMP TYFWD-2 


1543 


4345 


JMS TYBKW 


1544 


5736 


JMP I TYDIR 


1545 


5345 


TyBKw, JMP . 


1546 


4456 


JMS I TyPTEx 


1547 


4253 


4253 


1550 


6744 


6744 


1551 


0077 


0077 


1552 


5745 


JMP I TYBKW 


1553 


4335 


JMS TYFWD 


1554 


5736 


JMP I TYDIR 


1555 


5355 


TyFwD, JMP . 


1556 


4456 


JMS I TYPTEX 


1557 


46 6 7 


4667 


1560 


44Z0 


4400 


1561 


77?i? 


7700 


1562 


5755 


JMP I TYFWD 
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/TYPE CONTINUOUS 


IF NOT NORMAL HO:)E 


1563 


5363 


tymode, JMP . 




1564 


6761 


lOT 761 




1565 


0123 


AND K0100 




1566 


7650 


SNA CLA 




1567 


5763 


JMP I TYMODE 




1570 


4456 


JMS I TYPTEX 




1571 


4300 


4300 




1572 


5557 


5557 




1573 


4445 


4445 




1574 


0077 


0077 




1575 


5765 


JMP I TYMODE 





PAUSE 

/TC01 EXERCISER • TAPE 2 

/BASIC MOTION TEST# OECIPHEr KEYBOARD INPUT 

/SETUP EXECUTE TABLEi START DO LOOP 

/ON FIRST CHARACTER IF A(0) 



2000 


4456 


#2000 

MVTEST, JMS 


I TYPTEX 




2001 


7777 


7777 


/CR LF 


2002 


7777 


7777 


/CR I 


-F 


2003 


7700 


7700 






2004 


1032 


TAD iFlLOC 




/SA 0*1 EXECTUE TABLE 


2005 


3010 


DCA 10 


/FOR 


INDIRECT3: 


2006 


1010 


TAD 10 






2007 


7001 


lAC 






2010 


3011 


OCA 11 


/FOR 


RESET ON RPT LOOP 


2011 


7040 


CMA 






2012 


3013 


OCA 13 


/FOR 


1ST 


2013 


1011 


TAD 11 






2014 


3012 


DCA 12 


/FOR 


RESET ON CHNC DRIVES 


2015 


4240 


JMS WAITIN 


/WAIT For inpjt 


2016 


4247 


JMS MveouL 






2017 


0304 


304 


/IST 


IN . 


2020 


3013 


MVREST* OCA 


13 


/0 TO CHAR COUNTER 


2021 


4247 


JMS MVEQUL 






2022 


0306 


306 


/« F 


FORWARD 


2023 


4247 


JMS MVCQUL 






2024 


0302 


302 


/« B 


BACKWARD 


2025 


4247 


JMS MVCQUL 






2026 


0323 


323 


/« S 


STOP 


2027 


4247 


JMS MVCQUL 






2030 


0303 


303 


/I c 


CHANGE 


2031 


4247 


JMS MVCQUL 






2032 


0327 


327 


/■ w 


WAIT 


2033 


4247 


JMS MVCQUL 






2034 


0322 


322 


/» r 


REpE^T 


2035 


4247 


JMS MVCQUL 






2036 


0304 


304 . 


/« 


DO LOOP 


2037 


5200 


JMP MVTEST 
/WAIT KEYBOARD 


input 




2040 


5240 


WaITIN, JMP 


• 




2041 


6031 


KSF 






2042 


5241 


JMP .-1 
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2043 6036 

2044 7041 

2045 3014 

2046 5640 



KRB 

CMA lAC 

DCA 14 

JMP I WAITIN 



/14 = 2'S COMPLEMENT OF IN 
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/TEST FOR WHICH 


SHARACTER IN 


2047 


5247 


*1VE0UL, JMP 


1 


2050 


1014 


TAD 14 




2051 


1647 


TAD 1 MVEOUL 




2052 


2247 


ISZ MVEQUL 




2053 


7650 


SNA CLA 


/RIGHT CHAR 


2054 


5260 


JMP ,♦4 


/FOUND WHICH :hAR 


2055 


2013 


ISZ 13 


/INC POINTER 


2056 


7000 


NOP 




2057 


5647 


JMP I MVEQUL 


/TEST NEXT CHAR 


2060 


1013 


TAD 13 




2061 


7040 


CMA 


/FIRST IN » D 


2062 


7650 


SNA CLA 




2063 


5712 


JMP I DOTHEM 


/FIRST = 00 LAST 


2064 


1013 


TAD 13 




2065 


7104 


CLL RAL 


/NUMBER TIMES 2 


2066 


1273 


TAD MVRTBL 


/FORM ADDRESS 


2067 


3014 


DCA 14 


/FOR INDIRECT3: 


2070 


1414 


TAD I 14 


/GET ROUTINE aDDrEss 


20T1 


3410 


DCa I 10 


/TO EXECUTE TaBL^ 


2072 


5414 


JMP I 14 


/GO TOi TypEOUT 


2073 


2073 


^V«TBL. 




2074 


2216 


MVFWD 


/START TAPE FORWARD 


2075 


5313 


JMP MVGFWO 




2076 


2223 


MVBKWO 


/START BACKWARD 


2077 


5321 


JMP MV6BKW 




2100 


2230 


MVSTOP 


/STOP Tape 


2101 


5327 


JMP MVCSTP 




2102 


2274 


MVcHNtS 


/CHANGE DRIVES: 


2103 


5335 


JMP MVGCHG 




2104 


2246 


HVWAIT 


/WAIT, MARK TIME 


2109 


5347 


JMP MVGWAT 




2106 


2297 


MVRPT 


/REPEAT X TlMtS 


2107 


5396 


JMP MVCRPT 




2110 


2309 


MVENO 


/END 0^ DO LOOP 


2111 


9712 


JMP I .n 




2112 


2200 


POTHEM, OOLOOP /TO Gilf TO EXECUTE LOO 






/TYPE FORWARD 




2113 


4496 


MVGFWD, JMS 


I TYPTEX 


2114 


7777 


7777 




2115 


4667 


4667 




2116 


4477 


4477 




2117 


4240 


JMS WAITIN 




2120 


9220 


JMP MVREST 
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/TYPE BACKWARD 






2121 


4456 


^'VGBKW, JMS 


2122 


7777 


7777 


2125 


4253 


42*53 


2124 


6744 


6744 


2125 


77B0 


7700 


2126 


5317 


JHP MVGrwD*4 
/TYPE STOP 


2l27 


4456 


MVGSTP, JMS 


2lSf 


7777 


7777 


2131 


6364 


6364 


2132 


576a 


5760 


2133 


77aa 


7700 


2134 


5317 


JMP MVGrHD*4 



/TYPE CHANGE 

2135 4456 ^VGCWG. JMS I TYPTEX 

2136 7777 7777 

2137 4350 4350 

2140 4777 4777 

2141 1012 TAD 12 

2142 3410 OCA I 10 /PUT «IHERE TO iREPEAT 

2143 1010 TAD 10 /F=^OM On CWANSING DRIVES 

2144 7001 lAC 

2145 3012 OCA 12 

2146 5317 JMP MVGFW0*4 

/TYPE WAIT 

2147 4456 "^VCWAT, JMS I TYPTEx 

2150 7777 7777 

2151 6741 6741 

2152 5164 5164 

2153 0077 0077 

2154 4772 JMS I GET4IN /GET WAIT C3N5TANT 

2155 5317 JMP MVGFWD*4 



/TYPE REPEAT 

2156 4456 HvGRPT, JMS I TyPTEX 

2157 7777 7777 

2160 6260 6260 

2161 6420 6400 

2162 0077 0077 

2163 4772 JMS I GET4IN /GET REPEAT CONSTANT 

2164 1011 TAD 11 /GET REPEAT F^OM ADDRESS 

2165 3410 DCA I 10 /TO E<ECutE TABLE 

2166 1010 TAD 10 

2167 70Z1 lAC 

2170 3011 DCA 11 /FOR nExT R-:p£aT 

2171 5317 JMP MVGFWD*4 

2172 2310 3ET4IN, GETMIN /TO ^^T 4 CHARACTERS 
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2200 


4456 


2201 


7777 


2202 


4457 


2203 


7777 


2204 


7700 


2205 


1032 


2206 


3010 


2207 


3011 


2210 


14X0 


2211 


3214 


2212 


4414 


2213 


5210 


2214 


2214 


2215 


5215 



/DO LOOP, EXECUTE SELECTED SEQUENCE 
»2200 

30l.00P» JMS I TYPT^X /TYoE DO 
7777 



4457 
7777 
7700 

TAD BFILOC 
OCA 10 
DCA 11 
TAD I 10 
DCA ,*3 
JMS I t*2 
JMP .-3 

JMP . 



/SET ROUTINE POINTER TO START 

/TO COUNT RPT5 

/GET ROUTINE ADDRESS 
/rOR JMS I 

/EXECJTE ROUTINE 
/DO NEXT 



/BASIC MOTION TEST 

/FORWARD, BACKWARD, STOP, WAIT 

/REPEAT AND CHANGE DRIVE ROUTINES 

/START FORWARD MOTION 



2216 


5216 


MVFWO, 


JMP ♦ 




2217 


1075 


TAD 


K0200 


/MOVE TAPE FORWARD 


2220 


1060 


TAD 


UNFUNC 


/♦ DRIVE NUMBiR 


2221 


6766 


lOT 


766 




2222 


5616 


JMP 


I MVFWD 








/START 1 


lACKWARD MOTION 


2223 


5223 


HVBKWD, 


JMP . 




2224 


1344 


TAD 


K0600 


/MOVE BACKWARD 


2229 


1060 


TAD 


UNFUNC 


/♦ DRIVE NUMBER 


2226 


6766 


lOT 


766 




2227 


5623 


JMP 


t MVBKWO 








/STOP TAPE 




2230 


9230 


HVSTOPf 


JMP ♦ 




2231 


6761 


lOT 


761 


/READ STAT A. 


2232 


0345 


AND 


K7000 


/CLEA^i TO DRIVE NUM 


2253 


7041 


CMA 


uc 




2234 


1060 


TAD 


UNFUNC 




2235 


7640 


9iA 


CLA 


/SAME DRIVE 


2236 


9243 


JMP 


.♦5 


/NOT SAME AS: STAT A 


2237 


6761 


lOT 


761 




2240 


0075 


AND 


K0200 


/CLEA^t AC TO MOTION 


2241 


6764 


lOT 


764 


/CLEAR MOTION IF NOT READY 


2242 


5630 


JMP 


I MVSTOP 


/EXIT 


2243 


1060 


TAD 


UNFUNC 




2244 


6766 


lOT 


766 




2245 


5630 


JMP 


I MVSTOP 





BIT 
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/WAIT AND DO NOTHING FOR A NUMBER OF BLOCKS 

2246 5246 ^VWAIT, JMP . 

2247 3016 DCA 16 

2250 1410 TAD I 10 

2251 3017 DCA 17 

2252 2016 IS2 16 

2253 5252 JMP ,-1 

2254 2017 IS2 17 

2255 5252 jmP ,-3 

2256 5646 JMP I MVWAIT 



2257 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2270 
2271 
2272 
2273 



5257 
2011 
1011 
1410 
7640 
5270 
0410 
3011 
5657 
7040 
1410 
3010 
5657 



/REPEAT 
MVRPT, 
ISZ 

TAd 
TAD 
SZA 
JMP 
AND 
DCA 
JMP 
CMA 
TAD 
DCA 
JMP 



X TIMES LOOP 

JMP . 
11 
11 

I 10 
CLA 
.♦4 
I 10 
11 
I MVRPT 



10 
I 
MVRPT 



/RPT COUNT+1 



/DONE 

/NO 



/♦ (-^PT 

TIMES 



CONSTANT) 



/INC lyECUTE ADDRES 



/EXIT 

/RESET EXECUT 



ADDRESS 



2274 


5274 


2275 


4437 


2276 


5301 


2277 


0410 


2300 


5674 


2301 


7040 


2302 


1410 


2303 


3010 


2304 


5674 


2305 


5305 


2306 


5707 


2307 


2000 



/CHANGE DRIVES AND RErEaT Or 
/IF BACK TO FIRST DRiVE CONTINUi 



mvChng» 



JMP 



JmS I NEWDRV 



JMP 


,♦3 


AND 


I 10 


JMP 


I MVCHNG 


CMA 




TAD 


I 10 


DCA 


10 


JMP 


I MVCHNG 



/END OF ROUTINE TYPED IN 

MvEND, JMP , 

JhP 1 •♦! 
MVTEST 



,^^^H^ 
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2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2320 
2321 
2322 
2323 
2324 
232S 
232« 
2327 
2330 
2331 
2332 
2333 
2334 
2339 
2336 
2337 
2340 
2341 
2342 
2343 
2344 
234S 



5310 
7201 
3013 
6031 
5313 
6036 
6046 
6041 
5317 
7040 
0073 
3014 
1013 
7104 
7006 
1014 
3013 
7420 
5313 
1013 
7001 
7450 
7040 
3410 
4456 
7777 
7700 
5710 
0600 
7000 



/mAkE - CONSTANT OF 4 InPUTS 

getmin, JMP , 

CLA lAC 



OCA 13 

KSF 

JMP ,•! 

KRB 

TLS 

TSF 

JMP ,-1 

CM A 

AND K0007 

DCA 14 

TAD 13 

CLL RAL 

RTL 

TAD 14 

DCA 13 

SNL 

JMP GETMIN*3 

TAD 13 

lAC 

SNA 

CMA 

DCA I 10 

JMS I TyPTEx 

7777 

7700 

JMP I GETMIN 
K0600, 600 
K7000» 7000 



/♦I WHEN L»l 30T 4 

/WAIT KEYBOARJi 

/READ KEYBOAR:)! 
/OUTPUT 

/MAKE • 

/OCTA*! 

/MOVE 1 CHARACTER 

/ASSEMBLE 

/SKIP » DONE 4 
/NOT 4 YET 

/mAKE 2iS COm'LEmEnT 



/MUST BE AT L^AST -1 

/TO EXECUTE TABLE 
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/BASIC SEARCH ROUTlrjE 1 

/FORCE TAPE INTO END ZOnE 

/FAR ENOUGH TO GUARANTEE BLOCK d 

/VERIFY BLOCKS 0000 TQ 2701 thEN 



■"ORWARD 
REVERSE 







•2400 




2400 


4436 


srChi, JMS I 


REWIND 


2401 


4436 


JMS I REWIND 


/INTO Ez TWIC£i 


2402 


3114 


OCA DIRFLG 




2403 


3020 


OCA RECORD 


/RECORD 


2404 


4435 


JMS 1 SRCHIT 


/FIND It 


2405 


5221 


JMP SCHIST 


/yes 


2404 


4444 


JMS I ERRSTP 


/NO 


2407 


4452 


JMS I SRCHTY 




2410 


1026 


TAD RECRDK 


/BLOC<i LOOKED FOR 


2411 


4451 


JMS I TYPCON 




24121 


1025 


TAD IDCON 


/BL3C<i FOUND 


2415 


4451 


JMS I TYPCCN 




2414 


6772 


lOT 772 


/pU S^'AT B 


2415 


3021 


DCA SLKFND 




241i 


1025 


TAD IDCON 




2417 


4451 


JMS ! TYPCON 


/TYPE STAT 3 


2420 


5202 


JMP SRCH1*2 




2421 


3422 


SCHIST, DCA 1 


[ POSJTN :}JN^: 


2422 


3423 


OCA I DIRECT 


/FORWA.^w 


2423 


2020 


ISZ RECORD 


/RECORD L00<E3i FOR +1 


2424 


7040 


CMA 




2425 


3427 


DCA ! WCLOC 


/SET WC TO -1 


2426 


6764 


lOT 764 


/SET WC ENABLES 


2427 


4440 


JMS I WAITI 




2430 


0001 


1 




2431 


7410 


SKP 




243a 


5244 


JMP SCHICK 


/INTE-^RUPT OK 


2433 


6772 


ScHiER, lOT : 


772 


2434 


0110 


AND EEBIT 




2435 


7650 


SNA CLA 


/END ZONE 


2436 


5206 


JmP SR^.Hi*6 /NO ' 


rYPE ERROR 


2437 


i0?0 


TAD RECORD 




2440 


1077 


TAD K5077 




2441 


7700 


SMA CLA 


/DONE All Buo:ks 


2442 


5261 


JMP SChIND 


/yEs 


2443 


5206 


JmP SRCh1*6 /NO, 


ERROR 


2444 


1021 


ScHlOK, TAD 1 


3LKFN0 /GET BLOC 


2445 


7041 


CMA lAc 


/MAKE - 


2446 


1020 


TAD RECORD 




2447 


7640 


SZA CLA 


/RIGHT BLOC< 


2450 


5253 


JMP i+S 


/NO 


2451 


2422 


ISZ I POSITN 


/NEW POSITION 


2452 


5223 


JMP SCH1ST*2 


/TEST NEXT BL^CK 


2453 


4365 


JMS SIERRO 





NUMBER READ 
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2454 


2422 


IS? 


I POSITN 




2455 


2020 


isz 


RECORD 






2456 


4435 


JMS 


I SRCHIT 


/RESYnC on MEXT BLOCK 




2457 


5244 


JMP 


SCMlOK 


/F0JN3i OK 




2460 


5233 


JMP 


SCHIER 


/TEST For END 20NE 




2461 


4437 


SCHIND, 


JMS I 


NEWDRV 




2462 


5202 


JMP 


SRCH1*2 


/RPT NEXT DRWE 




2463 


7040 


CMA 








2464 


3020 


OCA 


RECORD 






2465 


1125 


TAD 


K0204 






2466 


1060 


TAD 


UNfUNC 






2467 


6766 


lOT 


766 


/MOVE DRIVE MTO EZ 




2470 


4440 


JMS 


I WAITI 






2471 


5001 


5001 






2472 


7000 


NOP 








2473 


4437 


JMS 


! NEWORV 






2474 


5265 


JMP 


SCH1ND*4 






2475 


2020 


IS2 


RECORD 


/DOME ALL TWICE 




2476 


7410 


SKP 




/YES 




2477 


5265 


JMP 


SCM1ND*4 


/MAKE 2N0 MOVil INTO EZ 




2S00 


1100 


SrCH2» 


TAD K2701 




2501 


3020 


DCA 


RECORD 






2502 


ll3l 


TAD 


K0614 


/SRCH BACKWARD 




2503 


1060 


TAD 


UNFUNC 


/♦ DRIVE NUMBER 




2504 


6766 


lOT 


766 






2505 


7040 


CMA 








2506 


3427 


DCA 


I wCLOC 






2507 


4440 


JMS 


! WAITI 




'^^ 


2910 


0001 


1 








2511 


7410 


SKP 








2912 


5325 


JMP 


$CH20K 






2il3 


4365 


SCH2ER, 


JMS SIERRO 




2514 


7240 


CLA 


CMA 






2515 


1020 
3020 


TAD 


RECORD 






2516 


DCA 


RECORD 






2517 


1020 


TAD 


REcORO 






2520 


7710 


SFA 


CLA 






2521 


5356 


JMP 


SIERR0'*7 






2522 


7040 


CMA 








2523 


3114 


DCA 


DIRFLG 






2524 


4435 


JMS 


I SRCHIT 
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2525 


1020 


SCH20K, TAD RECORD /BL3C<iL00KE 


2526 


7041 


CMA UC 


/MAKE - 


2527 


1021 


TAD BLKFND 


/* BLOCK FOJND 


2530 


76^0 


S2A CLA 


/RIGHT ONE 


2531 


5313 


JMP SCH2ER 


/NO 


2532 


6764 


lOT 764 


/RESET WC EMA3LE 


2533 


7040 


CMA 




2534 


3427 


DCA 1 WCLOC 




2535 


1020 


TAD RECORD 


/LAST BLOCK -L 


2536 


3422 


DCA 1 POSITN 




2537 


7040 


CMA 




2540 


1020 


TAD RECORD 




2541 


3020 


DCA RECORD 




2542 


4440 


JMS I WAITI 




2543 


0001 


1 




2544 


7410 


SKP 




2545 


5325 


JMP SCH20K 


/STATUS WAS N3RMAL 


2546 


6772 


lOT 772 


/READ StATB 


2547 


0110 


AND EZBIT 




2550 


7690 


SNA CLA 


/EiS INT 


2551 


5313 


JMP SCH2ER 


/NO, ERROR 


2552 


1020 


TAD RECORD 




2553 


7040 


CMA 




2554 


7640 


SZA CLA 


/EXPECT END ZONE 


2555 


5313 


JMP SCH2ER 


/NO, £RROR 


2556 


4437 


JMS I NEWDRV 


/GET NEXT 0=?HE 


2557 


5300 


JMP SRCH2 


/REPEAT 


2560 


7604 


CLA OSR 




2561 


7010 


RAR 




2562 


7620 


SNL CLA 


/REPEAT TEST 


2563 


7402 


HLT 


/NO, HALT 


2564 


5200 


JMP SRCHl 


/START OVER 


2565 


5365 


SlERRO, JMP , 




2566 


4444 


JMS I ERRSTP 




2567 


4452 


JMS I SRCHTY 




2570 


1026 


TAD RECRDK 




2571 


4451 


JMS I TYPCON 




2572 


1025 


TAD IDCON . 




2573 


4451 


JMS I TYPCON 




2574 


4447 


JMS I SBTYPE 




2575 


5765 


JMP I SIERRO 
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/SEARCH ROUTINE 2 

/READ A SERIES Of 129 BLOCKS OR U^TlL END ?ONE 

/COMPARE FOR INCREMENTING Op DEC, 

/IST KEY (F) SEARCH FqRWArD 

/ALL OTHERS BACKWARD 

/2ND KEY (C) COMPARE BLOCKS 

/ALL OTHERS DUMP TO 129 ON PRlNTE^i 

•2600 

2600 4743 SeRCH2» JMS I DRVTYp /TYPE DRIVE AND NUMBER 

2601 4333 JMS TYINTX /TYpE TYPE IN 

2602 4456 JMS I TYPTEX 

2603 0044 0046 /F FOR FwD 

2604 0046 0046 

2605 5762 5762 

2606 0046 0046 

2607 6744 6744 

2610 7700 7700 

2611 4321 JMS OTHRTX /TYPE ALL OTH£RS 

2612 4456 JMS I TYPTEX 

2613 4253 4253 /BACkwArO 

2614 6744 6744 

2615 0077 0077 

2616 6031 KSF /WAJT K 

2617 5216 JMP .-1 

2620 6036 KRB 

2621 6046 TLS 

2622 6041 TSF 

2623 5222 jmP ,-1 

2624 6042 JCF 

2€£5 1273 TAD K7472 

2626 7640 S2A CLA /pF 

2627 1102 TAD K0400 /NO P^IP BACKWARD 

2630 1103 TAD K0214 

2631 1060 TAD UNFUNC 

2632 6766 lOT 766 /START SEARCH 

2633 1032 TAD SFlLOC 

2634 3010 DCA 10 

2635 1064 TAD K7577 

2636 3011 DCA 11 

2637 7040 SER2ST, CMA /WC m -1 

2640 3427 OCA f WCLOC 

2641 1025 TAD IDCON /TO BuKFND 

2642 3430 DCA I CALOC 

2643 4440 jms I WAITI 

2644 0001 1 

2645 5255 JMP SERE? /NO MORMAL INT 
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2646 


1021 


TAD 


BLKFND 




2647 


3410 


DCA 


I 10 


/stdr: 


2650 


2011 


ISZ 


11 




2651 


7410 


SKP 






2652 


5720 


JMP 


I SER2AI 


/DONE 129 


2653 


6764 


lOT 


764 


/RESET ^CE 


2654 


5237 


JMP 


SER2ST 


/REPT 


2655 


6772 


SEREZ, 


lOT 772 


/READ B 


2656 


0110 


AND 


E2BIT 




2657 


7640 


S2A 


CLA 


/EMD ZONE 


2660 


5274 


JMP 


SER2NZ 


/YES 


2661 


6772 


lOT 


772 




2662 


3020 


DCA 


RECORD 


/TY=»E S 


2663 


1026 


TAD 


RECRDK 




2664 


4451 


JMS 


I TYPCON 




2665 


4456 


JMS 


1 TYPTEX 




2666 


0063 


0063 




2667 


6441 


6441 




2670 


6400 


6400 




2671 


4277 


4277 




2672 


5200 


JMP 


SERCH2 


/START OVER 


2673 


7472 


'<7472. 


7472 





BLOCK NUMBER 
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2674 
?675 
2674 
2677 
2700 
2701 

2702 
2703 
2704 
2705 
2704 
2707 
2710 
2711 
2712 
2713 
2714 
2715 
2714 
2717 
2720 



4456 
7777 
4554 
4400 
7257 
5645 
7700 
1011 
7041 
1064 
7440 
5720 
4454 
7777 
5657 
0042 
5457 
4353 
4377 
5200 
3000 



/TYPE END 

SER2N2. 
7777 
45S6 
4400 
7257 
5645 
7700 
TAD 11 
CMA 
TAD 
S2A 
JMP 



20NE 

JMS 



I TYPTt-X 



lAC 
K7577 
CLA 

I SER2AI 
TYpTEX 



JmS I 

7777 
5657 
0042 
5457 
4353 
6377 

JMP SERCH2 
SeR2AI> SER2A 



/READ 

/YES 
/TYpE 



ANY AT ALL 
NO BLoC<6 



/TO G£ir TO REST OF PROGRAM 



/TYPE ALL OTHERS 



2721 
2722 
2723 
2724 
2725 
2724 
2727 
2730 
2731 
2732 



OTHRTX, 



JMP 



532i 

4454 JMS I TYPTEX 

7777 7777 

4l54 4154 

5400 5400 

5764 5764 

5045 5045 

6263 6263 

0077 0077 

5721 JMP I OTHRTX 



/TYPE TYPE IN 

2733 5333 TYINTX, JMP 

2734 4454 JMS I TYPTEX 

2735 7777 7777 
2734 6471 6471 
2737 6045 6045 

2740 0051 0051 

2741 5477 5677 

2742 5733 JMP I TYINTX 



2743 1511 DrVTYP, 



TYDRV 



V ♦ 
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/REST OF SEARCH ROUTINE 2 










«3000 


3000 


6761 


SER2A, lOT • 


3001 


0075 


AND K0200 


3002 


6764 


lOT 764 


3003 


1011 


TAD 11 


3004 


7041 


CMA lAC 


3005 


1064 


TAD K7577 


3006 


3011 


DCA 11 


3007 


1032 


TAD BFIUOC 


3010 


3010 


DCA 10 


3011 


1010 


TAD 10 


3012 


7001 


lAC 


3013 


3012 


DCA 12 


3014 


1012 


TAD 12 


3015 


4451 


JMS I TYPCON 


3016 


4456 


JMS I TYPTEX 


3017 


0046 


0046 


302:0 


5162 


5162 


3021 


6364 


6364 


3022 


7700 


7700 


3023 


4625 


JMS ! *^2 


3024 


7410 


SKP 


3025 


2733 


TYINTX 


3026 


4456 


JMS I TYPTEX 


3027 


0043 


0043 


3030 


0046 


0046 


3031 


5762 


5762 


3032 


0043 


0043 


3033 


5755 


5755 


3034 


6041 


6041 


3035 


6245 


6245 


3034 


7700 


7700 


3037 


4641 


JMS I .^2 


3040 


74410 


SKP 


3041 


2721 


OTHRTX 


3042 


4456 


JMS I TYPTEX 


3043 


6062 


6062 


3044 


5156 


5156 


3045 


6400 


6400 


3046 


7700 


7700 


3047 


6031 


KSF 


3050 


5247 


JMP ,-1 


3051 


6036 


KRB 


3052 


6046 


TLS 


3053 


6041 


TSF 


3054 


5253 


JMP .'l 


3055 


6042 


TCF 


3056 


1331 


TAD K7475 


3057 


7640 


SEA CLA 


3060 


5323 


JMP SER2TY 



761 



/STOP TAPE 



/NUMBER OF BLOCKS READ 
/TO GET FIRST BUOCK 



/TO GET 2ND B-DCK 

/TYPE FIRST 
/BLOCK NO REA^i 



/TYPE TYPE IN 



/C FOR COMPAR£i 



m^ 



/ALU OTHERS 



/PRINT 



/WAIT KEY 



/bC 

/NO, 



PRINT AL-i 
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3061 6761 lOT 761 

3062 0102 AND K0400 

3063 7640 SZA CLA /FORWARDS 

3064 7040 chk /NO MaKE -l 

3065 7450 SNA /BACKWARDS 

3066 7001 lAC /NO MAKE *1 

3067 3014 OCA 14 

,«— ««- /COMPARE BLOCKS FOR INCREMENTING DR DEC 

30T0 2011 SERCMP. ISZ 11 /COMPARED All 

30T1 7410 SKP /NO 

3072 5311 JMP SER2LS /TYPE LAST BLOCK 

30T3 1014 TAD 14 /* qR - 

lilt iii^ ^^° ^ ^^ ^* ^I^BT BLOCK 

3075 7041 CMA lAC /MAKE - 

?;!; JJJf TAD I 12 /♦ ^^EXT BLOCK 

3077 7i50 SNA CLA /SHOUlO BE 

3100 5270 JMP SERCMP /DO NEXT 

3101 445* jMS I TYPTEX 

3102 7777 7777 

3103 7700 7700 

3104 1010 TAD 10 

3105 4451 JMS I TYPCON /TYPE 1ST 

3106 1012 TAD 12 

3107 4451 JMS I TYPCON /TYpE 2ND 
3110 5270 JMP SERCMP /DO NEXT 



/TYPE OUT LAST BLOCK READ 

3111 1012 SER2LSf TAD 12 

3112 445i JMS I TYPCON /TYPE BLOCK NJMBER 

3113 4456 JMS I TYPTEX 

3114 0054 0054 /LAST 

3115 4163 4163 

3116 6477 6477 

3117 4437 JMS ! NEWDRV 

3120 7000 NOP 

3121 5722 JMP I .♦I 

3122 2600 SERCH2 /REpEaT FOR N£0(T DRIVE 



/PRINT ALL BLOCKS READ 

3123 10l2 SER2TY, TAD 12 /ADDRiSS 

3124 4451 JMS I TYPCON /TYPE BloCK NJMBER 

3125 2012 ISZ 12 

3126 2011 ISZ 11 /DONE ALL 

3127 5323 JMP SER2TY /NO 

3130 5313 JMP SER2LS*2 /YES, OO NEXT DRV 

3131 7475 <7475, 7475 



PAUSE 

/TC01 BASIC EXCERCISER TApE 3 

/START STOP TURN ARQUnO TeSt 

/I TO I DRIVES IN ANY COMBINATION 

/TESTS TA ON BLOCK BOTH DireCTUnS 

/S/S/TA LENGTH OF TAPE AND TA ON 3lOCK 2701 

/MOVE ALL DRIVES INTO REVERSE END ZONE 
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3200 



3200 


4436 


SsTRNA. JMS I REWIND 


3201 


4436 


JMS I REWIND /MOVE INTO EZ 2 


3202 


4441 


JMS I WTHALF /WAIT HALF 3E:oND 


3203 


4443 


JMS I SAVPAD 
/TEST TURN AROUND ON BLOCK FIMD 1 FWD 


3204 


7201 


CLA lAC 


321*5 


3020 


DCA RECORD 


3206 


4454 


JMS ! SSTFWD /FIND BLOCK 1 FWD 


3207 


5214 


JMP GBKWl 


3210 


4366 


SSTERI, JMS EiERR 


3211 


7000 


NOP 


3212 


4453 


JMS ! ERSSTA 


3213 


5204 


JMP .-7 
/TURN AROUND FIND BACKWARDS 


3214 


3020 


GBKWl, DCA RECORD 


3215 


7001 


lAC 


321* 


3422 


DCA I POSITN 


3217 


3423 


DCA I DIRECT 


3220 


4455 


JMS I SSTBKW 


3221 


5225 


JMP ,♦4 


3222 


5210 


JMP SSTERI 


3223 


5211 


JMP SSTEr1*1 
/WAIT FOR EZ TA FIND FWD 


3224 


5211 


JMP SSTER1*1 


3225 


3422 


DCA ! POSITN 


3226 


7040 


CMA 


3227 


3423 


DCA I DIRECT 


3230 


1065 


TAD K0604 


3251 


1060 


TAD UNFUNC 


3232 


6766 


lOT 766 


3233 


4440 


JMS I WAITI 


3234 


5001 


5001 


3235 


5210 


JMP SSTERI 


3236 


7040 


CMA 


3237 


3422 


DCA I POSITN 


3240 


4454 


JMS I SSTFWD 


3241 


5245 


JMP ,*4 


3242 


5210 


JMP SSTERI 


3243 


7000 


NOP 


3244 


5211 


JMP SSTERI*! 
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3245 3422 OcA I POSITN 

DCA I DIRECT 

TAD K0200 

lOT 764 

JMS I NEWDRV 

JMP SSTRNA*4 

JMS I WTHALF 



3246 


3423 


3247 


1075 


3290 


6764 


3251 


4437 


3252 


5204 


3253 


4441 


3254 


4443 


3255 


1422 


3256 


1104 


3257 


3020 


3260 


4454 


3261 


5267 


3262 


5666 


3263 


7000 


3264 


4453 


3265 


5254 


3266 


3437 


3267 


1020 


3270 


3422 


3271 


3423 


3272 


1075 


3273 


6764 


3274 


4437 


3275 


5254 


3276 


4441 


3277 


4443 


3300 


1422 


3301 


1107 


3302 


3020 


3303 


4455 


3304 


5311 


3305 


4366 


3306 


7000 


3307 


4453 


3310 


5277 


3311 


1020 


3312 


3422 


3313 


7040 


3314 


3423 


3315 


1075 


3316 


6764 


3317 


4437 


3320 


5277 


3321 


4441 



/TEST FORWARD START AFTER FORWARD 
SSTANI, JMS I SAVPAD 

TAD I POSITN 

TAD SFAFK 

DCA RECORD 

JMS I SSTFWO 

JMP SSTAlA 

JMP ! .♦4 

NOP 

JMS I ERSSTA 

JMP SSTANl 

SSTAEi 

SSTAIA, TAD RECORD 
OCA I POSITN 
DCA I DIRECT 
TAD K0200 
lOT 764 
JMS I NEWDRV 
JMP SSTANl 
JMS I WTHALF 

/TEST BACKWARD START AFTEr FORWARJi 
SSTAN2, JMS I SAVPAD 

TAD I POSITN 

TAD SBAFK 

OCA RECORD 

JMS I SSTBKW 

JMP SSTA2A 

JMS EZERR 

NOP 

JMS I ERSSTA 

JMP SSTAN2 
SSTA2Ai TAD RECORD 

DCA I POSITN 

CMA 

DCA I DIRECT 

TAD K0200 

lOT 764 

JMS I NEWDRV 

JMP SSTAN2 

JMS I WTW^LF 
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/TEST START FORWARD AFTER BACKWARD' 

3322 4443 SSTAN3. JMS 1 SAVpAD 

3323 1422 TAD I POSITN 

3324 1105 TAD SFABK 

3325 3020 DCA RECORD 

3326 4454 JMS I SSTFWD 

3327 5334 JMP SSTA3A 

3330 4366 JMS EZERR 

3331 7000 NOP 



3332 

3333 

3334 

3335 

3336 

3337 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3370 

3371 



4453 

5322 

1020 

3422 

3423 

7040 

3427 

6764 

4440 

5001 

5331 

2422 

4455 

5353 

5330 

7000 

5331 

l020 

3422 

7040 

3423 

1075 

6764 

4437 

5322 

4441 

5765 

3400 

5366 

7240 

3021 

5766 



3400 


4443 


3401 


1422 


3402 


1106 


3403 


3020 


3404 


4455 


3405 


5212 


3406 


4636 


3407 


7000 



/THEN TEST FORWARD TO BACKWARD TU^N AROUND 

JMS I ERSSTA 

JMP SSTAN3 
SSTA3A, TAD RECORD 

DCA I POSITN 

OCA I DIRECT 

CMA 

DCA I WCLOC 

lOT 764 

JMS I WAITI 

5001 

JMP SSTAN3*7 

ISZ I POSITN 

JMS I SSTBKW 

JMP SSTA3B 

JMP SSTAN3*6 

NOP 

JMP SSTAN3*7 
SSTA3B. TAD RECORD 

DCA I POSITN 

CMA 

DCA 1 DIRECT 

TAD K0200 

lOT 764 

JMS I NEWORV 

JMP SSTAN3 

JMS I WTHALF 

JMP I ,♦! 

SSTAN4 
EgERR, JMP 

CmA cla 

DCA BLKFNO 

JMP I E2ERR 

•3400 

/TEST BACKWARD START AFtER BACKWARDS 
SSTAN4» JMS I SAVpAD 

TAD I POSITN 

TAD SBABK 

DCA RECORD 

JMS I SSTBKW 

JMP SSTA4A 

JMS I EZERRA 

NOP 



IV 



MAINDEC-08-D3BB-D 
53 



/THEN TEST BACKWARD Tq FORWARD TU^N AROUND 



3410 


4453 


JMS 


I ERSSTA 


3411 


5200 


JMP 


SSTAN4 


3412 


1020 


SSTA4A, 


TAD RECORD 


3413 


3422 


DCA 


I POSITN 


3414 


7040 


CMA 




3415 


3423 


DCA 


I DIRECT 


3416 


2020 


ISZ 


RECORD 


3417 


4454 


JMS 


r SSTFWD 


3420 


5224 


JMP 


SSTA4B 


3421 


5206 


JMP 


SSTAN4*6 


3422 


7000 


NOP 




3423 


5207 


JMP 


SSTAN4*7 


3424 


1020 


SsTA4B. 


TAD RECORD 


3425 


3422 


DCA 


I POSITN 


3426 


3423 


OCA 


1 DIRECT 


3427 


1075 


TAD 


K0200 


3430 


6764 


IDT 


764 


3431 


4437 


JMS 


I NEWDRV 


3432 


5200 


JMP 


SSTAN4 


3433 


4441 


JMS 


I WTHALF 


3434 


5635 


JMP 


I .♦I 


3435 


3254 


SSTANl 



3436 3366 EgERRA» 



EZERR 



MAINDEC-08-D3BB-D 
54 



3437 
3440 
3441 
3442 
3443 
3444 
3445 
3446 



3447 
3450 
3451 
3452 
3453 
3454 
3455 
3464 

3457 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3470 
34T1 
3472 
3473 



1020 
1077 
7500 
5245 
5644 
3264 
4437 
5245 



7040 
3020 
1125 
1060 
6766 
4440 
5001 
7000 
7040 
3422 
3423 
4437 
5254 
2020 
7410 
5263 
4441 
1340 
3020 
4443 
4455 



/END ZONE HAS BEEN REACHED FWD 
/TEST TURN AROUND ON 2701 

SsTaEE, TAD RECORD 
TAD K5077 

SMA /DONE TO END ^ONE 

JMP .♦S /YES 

jMP I .♦I /FALSf:i End zone 

CeTAK|4 a1 flj 

JMS I NEWDRV /reset to FIRST DRV 
JMP ,-1 

/MOVE ALL DRIVES INTO END ZONE 
CMA 



DCA RECORD 

TAD K0204 

t^d unFunc 

lOT 766 

JMS I HAITI 

5001 

NOP 

CMA 

DCA ! POSITN 

DCA I DIRECT 

JMS I NEWDRV 

JMP ,-7 

ISZ RECORD 

SKP 

JMP .-3 

JMS I WTHALF 
SSTEZA» TAD K27 

DCA RECORD 
JMS I SAVPAD 

JMS I SSTBKW 



/TO COUNT TWO EZ PASSES 



/IGNORE OTHER INTERRUPTS 



/2 PASSES 

/yEs 



/GO BACKWARD TO 2700 



3474 
3475 
3476 
3477 

3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 



5301 
7000 
7000 
4453 
5270 
1020 
3422 
7040 

3423 

2020 
4454 
5313 



JMP SSTEZl 
NOP 
NOP 

JMS I ERSSTA 

JMP SSTEZA 
SSTEHl, TAD RECORD 



/REACHED 2700 OK 



DCA 1 POSITN 

CMA 

DCA I DIRECT 

ISZ RECORD 

JMS I SSTFWD 

JMP .♦4 



/BLOCK 2700 
/BACKWARD 

/2700 TO 2701 
/FIND 2701 FORWARD 
/OK 



3510 


4636 


3511 


7000 


3512 


5274 


3513 


1125 


3514 


1060 


3515 


6766 


3516 


4440 


3517 


5001 


3520 


7000 


3521 


4455 


3522 


5326 


3523 


7000 


3524 


7000 


3525 


5274 


3526 


1075 


3527 


6764 


3530 


4437 


3531 


5335 


3532 


7604 


3533 


7006 


3534 


7420 
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JMS I E2ERRA /E2 InT. ERRO^! 

NOP 

JMP SSTE2A*4 

TAD K0204 

TAD UNFUNC 

lOT 766 

JMS 1 WAITI /WAIT For E2 

5001 

NOP 

JMS I SSTBKW /FIND 2701 BACKWARD 

JMP ,*4 /OK 

NOP 

NOP 

JMP SSTE2A*4 

TAD K0200 

lOT 764 

JMS I NEWDRV /TESTED ALL DRIVES 

JMP ,*4 /NO 

CLA OSR 

RTL 

SNL /DELETE END 0*1 TEST HALT 



3535 7402 HLT /HLT END OF T£BT 

J536 5737 JMP I .♦! /REPEAT TEST 

3537 3201 SSTRNA*! 

3540 2700 K2700, 2700 
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/START STOP TURN AROUnD TEST 
/SEARCH FORWARD ROUTINE 







• 3600 




3600 


52(90 


SSTAFW, 


JMP . 


3601 


7240 


CLA 


CMA 


3602 


3370 


DCA 


BLOCKK 


3603 


1103 


TAD 


K0214 


3604 


1060 


TAD 


UNFUNC 


3605 


6766 


lOT 


766 /START TAPE FORWARD 


3606 


7040 


CMA 




3607 


3427 


DCA 


I WCLOC /SET wC s -1 


3610 


1029 


TAD 


IDCON 


3611 


3430 


DCA 


I CAloC 


3612 


4440 


JMS 


I WAITI 


3613 


0001 


1 




3614 


5232 


JMP 


SSTFSE /STATUS B E=?RDR 


3615 


2370 


ISZ 


BLOCKK 


3616 


5242 


JMP 


SSTFBE*2 


3617 


1021 


SSTFR, 


TAD BLKFND 


3620 


3371 


DCA 


BLOCKK*! 


3621 


1021 


TAD 


BLKFND 


3622 


7041 


CMA 


!AC 


3623 


1020 


TAD 


RECORD 


3624 


7650 


SNA 


CLA /RIGHT BLOCr< 


3625 


5600 


JMP 


I ssTAFw /yEs» Exit 


3626 


7710 


SPA 


CLA /BLOCK FOUND ,ESSER 


3627 


5240 


JMP 


SSTFBE /NO, ERROR 


3630 


6764 


lOT 


764 /RESET WC ENABLE 


3631 


5206 


JMP 


SSTAFW-6 


3632 


6772 


SSTFSE. 


lOT 772 


3633 


0110 


AND 


EZBIT 


3634 


7650 


SNA 


CLA 


3635 


2200 


ISZ 


SSTAFW /END ZONE EXIT 


3636 


2200 


ISZ 


SSTAFW /ONLY 1 ISZ 


3637 


5600 


JMP 


I SSTAFW 


3640 


2200 


SSTFBE, 


ISZ SSTAFW 


3641 


5235 


JMP 


.-4 


3642 


1371 


TAD 


BLOCKK*! 


3643 


7040 


CMA 




3644 


1021 


TAD 


BLKFND 


3645 


7650 


SNA 


CLA 


3646 


52i7 


JMP 


SSTFR 


3647 


4322 


JMS 


bnotcn 


3650 


5201 


JMP 


SSTAFW*! 



mi... 



MAINDEC-08-D3BB-D 
57 



/START STOP TURN ARQUnD TEST 
/SEARCH BACKWARD ROUTINE 





3651 


5251 


SSTABW, 


JMP . 




3652 


7240 


CLA 


CMA 




3653 


3370 


DCA 


BLOCKK 




3654 


1101 


TAD 


K0614 




3655 


1060 


TAD 


UNFUNC 




3656 


6766 


lOT 


766 




3657 


7040 


CMA 


V 




3660 


3427 


DCA 


I WCLOC 




3661 


1025 


TAD 


IDCON 




3662 


3430 


DCA 


I CALOC 




3663 


4440 


JMS 


I WAiTI 




3664 


0001 


1 






3665 


5303 


JMP 


SSTBSE 




3666 


2370 


ISZ 


BLOCKK 




3667 


5313 


JMP 


SSTBBE*2 




3670 


1021 


SSTBR, 


TAD BLKFND 




3671 


3371 


DCA 


blockk*i 




3672 


1020 


TAD 


RECORD 




3673 


7041 


CMA 


!AC 




3674 


1021 


TAD 


BLKFND 




3675 


7450 


SNA 






3676 


5651 


JMP 


I SSTABW /F 




3677 


7710 


SPA 


CLA 




3700 


5311 


JMP 


SSTBBE 




3701 


6764 


IDT 


764 




3702 


5257 


JMP 


SSTABW*6 


%^' 


3703 


6772 


SSTBSE, 


lOT 772 




3704 


0110 


AND 


EZBIT 




3705 


7650 


SNA 


CLA 




3706 


2251 


ISZ 


SSTABW 




3707 


2251 


ISZ 


SSTABW 




3710 


5651 


JMP 


I SSTABW 




3711 


2251 


SSTBBE, 


ISZ SSTABW 




3712 


5306 


JMP 


,-4 




3713 


1021 


TAD 


BLKFND 




3714 


7040 


CMA 






3715 


1371 


TAD 


BL0CKK*1 




3716 


7650 


SNA 


CLA 




3717 


5270 


JMP 


SSTBR 




3720 


4322 


JMS 


bnotcn 




3721 


5252 


JMP 


SSTabW*1 



/FOUND BLOCK £xlT 
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/BUOCK NUMBERS ARE NOT 

/CONSECUTIVE ON START UP QR TUR>J AROUND 



3722 


5322 


3n0TCN» JMP . 




3723 


4444 


JMS I ERRSTP 




3724 


4452 


JMS I SRCHTY 




3725 


1026 


TAD RECRDK 




3726 


4451 


JHS I TYPCON 




3727 


4456 


JMS I TYPTEX 




3730 


7777 


7777 


/TYPE BLOCK NIJM 


3731 


4254 


4254 




3732 


5300 


5300 




3733 


0300 


0300 




3734 


4562 


4562 




3735 


6277 


6277 




3734 


1372 


TAD BL0CKK*2 




3737 


4451 


JMS I TYPCON 




3740 


4456 


JMS I TYPTEX 


/TYPE LAST 


3741 


0054 


0054 




3742 


4163 


4163 




3743 


6477 


6477 




3744 


1025 


TAD IDCON 




3745 


4451 


JMS I TYPCON 


/TYPE CURRENT 


3746 


4456 


JMS ! TYPTEX 


/BLOCK NUMBER 


3747 


0064 


64 




3750 


5051 


5051 




3751 


6377 


6377 




3752 


1370 


TAD BLOCKK 




3793 


7001 


lAC 




3754 


3370 


DCA BLOCKK 




3755 


1373 


TAD BL0CKK*3 




3756 


4451 


JMS I TYPCON 


/TYPE OUT BLO:k 


3757 


4456 


JMS I TYPTEX 


/COUNTER 


3760 


0043 


43 




3761 


5664 


5664 




3762 


6277 


6277 




3763 


7604 


ClA osr 




3764 


7012 


RTR 




3765 


7620 


SNL CUA 


/STOP On ERRD^i 


3766 


7402 


HUT 


/YES 


3767 


5722 


JMP I BNOtCN 




3770 


0000 


BLOCKKi 




3771 


0000 







3772 


3771 


.♦-l 





3773 3770 



,*3 
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/START STOP TURN AROU(s|D TEST 
/E«ROR TYPE OUT AND RESYNC ROUTINii 



4000 


5200 


4001 


4444 


4002 


4452 


4003 


1422 


4004 


7040 


4005 


7640 


4006 


5211 


4007 


4267 


4010 


5213 


4011 


1022 


4012 


4451 


4013 


1423 


4014 


7640 


4015 


5220 


401* 


4711 


4017 


5221 


4020 


4710 


4021 


4496 


4022 


0054 


4023 


4163 


4024 


6400 


4025 


6057 


4026 


6377 


4027 


1026 


4030 


4451 


4031 


4456 


4032 


0063 


4033 


4541 


4034 


6243 


4035 


5045 


4036 


4477 


4037 


1021 


4040 


7040 


4041 


7640 


4042 


5245 


4043 


4267 


4044 


5247 


4045 


1025 


4046 


4451 


4047 


4456 


4050 


0046 


4051 


5765 


4052 


5644 


4053 


7700 


4054 


4447 


4055 


7604 


4056 


7006 


4057 


7630 


4060 


5263 



^ER, JMP 
JMS I ERRSTP 
JMS I SRCHTY 
TaD I POSITN 
CMA 

SZA CLA 
JMP t+S 
JMS EiTYPE 
JMP ,*3 
TAD POSITN 
JMS ! TYPCON 
TAD I DIRECT 
SZA CLA 
JMP .•S 
JMS I FWOTYP 
JMP ,♦2 
JMS I BKWTYP 
JMS I TYPTEX 
0054 
4163 
6400 
6057 
6377 

T^D REcRDK 
JMS 1 TYPcON 
JMS I TYPTEX 

0063 
4541 
6243 
5045 
4477 

TAD bLKFND 

CMA 

SZA CLA 

JMP ,*3 

JMS EZTYPE 

JMP ,*3 

TAD IDCON 

JMS ! TYPCON 

JMS I TYPTEX 

0046 

5765 

5644 

7700 

JMS I SBTYPE 

CLA OSR 

RTL 

SZL CLA 

JMP ,*3 



/STOP Tape ls statb 

/TYpE search 



/tape was whe^e 
/not end zome 

/type end zone 



/TYPE Last block 

/direction ^<a3: 
/backward 
/TYPE Forward 

/TYPE BACKWAR3I 
/TYPE (LAST POS) 



/TYPE bLOcKI .OOkED FOR 
/TYPE (SEARCHED) 



/WAS A BLOCK DUMBER 
/YES 

/TY^E END ZONE 

/TYPE BLOCK NUMBER 

/TYPE (FOUND) 



/DELETE STOP AFTER ERROR 
/NO ERROR STO^i 
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4061 


1230 


TaD SSTaE^R 




4062 


7402 


HLT 


/DISPLAY ADDRESS 


4063 


7200 


CLA 




4064 


4707 


JMS I SYNCRE 




4065 


4441 


JMS I WTHALF 




4066 


5600 


JMP I SSTAER 
/TYPE (END iONE) 




4067 


5267 


EZTYPE, JMP , 




4070 


4456 


JMS I TYPTEX 




4071 


7777 


7777 




4072 


4556 


4556 




4073 


4400 


4400 




4074 


7257 


7257 




4075 


5645 


5645 




4076 


7700 


7700 




4077 


5667 


JMP I EZTYPE 








/SAVE POSITION AND 


DIRECTION POINTERS 


^100 


5300 


DaPSAV. JMP . 




4101 


7200 


CLA 




4102 


1422 


TAD 1 POSITN 




4103 


3111 


DCA POSSAV 




4104 


1423 


TAD I DIRECT 




4105 


3112 


DCA DIRSAV 




4106 


5700 


JMP I DAPSAV 




4107 


4200 


SyNCRE, RESYNC 




4110 


15^5 


bkwtyp, TYBKW 




4111 


1555 


fwDtyp. tyfwd 





WSJ^^I 
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/PUT TAPE BACK TO LAST KNOWN POSITION 
• 4200 



4200 


5200 


resync. 


JMP . 


4201 


1111 


TAD 


POSSAV 


4202 


7040 


CMA 




4203 


7650 


SNA 


CLA 


4204 


5354 


JMP 


RESYE2 


4209 


1112 


TAD 


DIRSAV 


420t 


7640 


SiA 


CLA 


4207 


5276 


JMP 


resbkw 


4210 


1101 


TAD 


K0614 /TAPE GOES BACKWARD 


4211 


1060 


TAD 


UNFUNC /FjRSr TO RESYNC 


4212 


6766 


lOT 


766 /FORWARD 


4213 


7040 


«esfwd, 


CMA 


4214 


3427 


DCA 


I WCLOC /-l TO WC 


4215 


4440 


JMS 


I WAITI 


4216 


0001 


1 




4217 


5260 


JMP 


RESFEZ 


4220 


1021 


TAD 


BLKFND 


4221 


7041 


CMA 


lAC 


4222 


1111 


TAD 


POSSAy 


4223 


1374 


TAD 


K7772 


4224 


7700 


SMA 


CLA 


4225 


5231 


JMP 


.♦4 


4226 


7200 


CLA 




4227 


6764 


lOT 


764 


4230 


5213 


JMP 


RESFWD 


4231 


1102 


TAD 


K0400 


4232 


6764 


resfwf. 


lOT 764 


4233 


7040 


CMA 




4234 


3427 


OCA 


I WCLOC 


4235 


4440 


JMS 


I WAITI 


4236 


0001 


1 




4237 


5201 


JMP 


RESYNC*! 


4240 


1111 


TAD 


POSSAV 


4241 


7041 


CMA 


lAC 


4242 


1021 


TAD 


BLKFND 


4243 


7450 


SNA 




4244 


5250 


JMP 


.♦4 


4245 


7710 


SPA 


CLA 


4246 


5232 


JMP 


resfwf 


4247 


5201 


JMP 


RESYNC*! 
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4250 


1075 


=?ESXIT, 


TAD K0200 /STOP TAPE 


4251 


6764 


lOT 


764 




4252 


1111 


TAD 


POSSAV 


/rEsEt POSITION 


4253 


34 22 


DCA 


t POSITN 


/ANJD DlRECTIO^J 


4254 


1112 


TAD 


DIRSAV 


/POINTERS 


4255 


3423 


DCA 


I DIRECT 




4256 


4441 


JMS 


I WTHALF 




4257 


5600 


JMP 


I RESYNC 




4260 


6772 


^Esrrz. 


IDT 772 




4261 


0110 


AND 


EE0IT 




4262 


7650 


SNA 


CLA 


/END ZONE 


4263 


5201 


JMP 


RESYNC*1 


/NO, SOME OTHi:R, RESYNC 


4264 


1065 


TAD 


K0604 




4265 


1060 


TAD 


UNFUNC 




4266 


6766 


lOT 


766 


/MOVE Farther 


4267 


4440 


JMS 


I WAITI 


/INTO Ez 


4270 


5001 


5003 






4271 


5264 


JMP 


\,5 




4272 


1103 


TAD 


K0214 




4273 


1060 


TAD 


UNFUNC 




4274 


6766 


IDT 


766 


/NOW START FORWARD 


4275 


5233 


JMP 


RESFWF*1 




4276 


1103 


?«esbkw, 


TAD K0214 /TO RESYNC BKWD 


4277 


1060 


TAD 


UNFUNC 


/TAPE MUST FIRST 


4300 


6766 


lOT 


766 


/GO FORWARD 


4301 


7040 


CMA 






4302 


3427 


DCA 


I wcuoc 




4303 


4440 


JMS 


I WAITI 




4304 


0001 


1 






4305 


5336 


JMP 


RCSBEZ 


/TEST For END ZONE 


4306 


1373 


TAD 


K0006 




4307 


nil 


TAD 


POSSAV 




4310 


7041 


CMA 


!AC 




4311 


1021 


TAD 


BLKFND 




4312 


7700 


5HA 


CLA 


/REACH POSITIDN +6 YET 


4313 


5317 


JHP 


.♦4 


/yEs 


4314 


7200 


CLA 






4315 


6764 


ICT 


764 


/GO FORWARD M3RE 


4316 


5301 


JMP 


RESBkW*3 




4317 


1102 


TAD 


K0400 


/CHANGE To BACKWARD 


4320 


6764 


REsBKB. 


IOt 764 




4321 


7040 


CMA 






4322 


3427 


DCA 


1 WCLOC 




4323 


4440 


JMS 


I WAITI 




4324 


0001 


1 






4325 


9201 


JMP 


RCSYNC^l 


/NOT NORMAL STAT, TRY AGAIN 
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4326 


1021 


TAD 


BLKFND 




4327 


7041 


CMA 


lAC 




4330 


1111 


TAD 


POSSAV 




4331 


7450 


SNA 




/IN pqSitiom rET 


4332 


5250 


JMP 


RESXIT 


/YES 


4333 


7700 


CLA 


SMA 


/GO Past agaimi 


4334 


5201 


JMP 


RESYNC*1 


/yes» try again 


4335 


5320 


JMP 


RE5BKB 


/NO, WAIT FOR NEXT BLOCK 


4336 


6772 


RESBEE. 


lOT 772 


4337 


0110 


AND 


ElBIT 




4340 


7650 


SNA 


CLA 


/END ZONE 


4341 


5201 


JMP 


RESYNC*1 


/NO, TRY AGAI^i 


4342 


1125 


TAD 


K0204 




4343 


1060 


jAD 


UNFuNC 




4344 


6766 


lOT 


766 


/MOVE Into ez again 


434f 


4440 


JMS 


I WAIT! 




4346 


5001 


5001 




4347 


5201 


JMP 


RESYNC*1 




4350 


1101 


TAD 


K0614 




43S1 


1060 


TAD 


UNFUNC 


/NOW START BACKWARDS 


4352 


6766 


IDT 


766 




4353 


5321 


JMP 


RESBKB^l 





/PUT TAPE BACK INTO END ZONE 
/lEZ OR TEZ 



4354 


1112 


RESYEZ, TA» DIRSAV 


4355 


7640 


SZA CLA 


/BACKWARD » NO' SKIP 


4356 


1102 


TAD K0400 


/YES Backward 


4357 


1125 


TAD K0204 




4360 


1060 


TAD UNFUNC 




4361 


6766 


lOT 766 




4362 


4440 


JMS I WAIT! 




4363 


5001 


5001 




4364 


5354 


JMP RESYEZ 




4365 


1075 


TAD K0200 




4366 


6764 


lOT 764 


/MOVE INTO EZ TWICE 


4367 


4440 


JMS I WAITI 




4370 


5001 


5001 




4371 


5365 


JMP ,-4 




4372 


5251 


JMP RESXIT*1 




4373 


0006 


K0006» 6 
K7772, 7772 




4374 


7772 





Pause 

/TC01 basic exerciser - TaPE 3A 

/WRITE basic data PATTERNS 

/READ VERIFY WRITE FORWARD 

/REaD backward, FORWARD, WRITE BACKWARD 

/READ FORWARD, BACKWARD 

•4400 

/GET SWITCHES 
/MASK PATTERN NUM 



4400 


7604 


WRTTST. 


LAS 


4401 


0073 


AND 


K0007 


4402 


3370 


OCA 


PATNUM 


4403 


1370 


TaD 


patnum 


4404 


1365 


TaD 


PaTTbL 











/SAAINDEC-08-D3BB-D 
64 


4405 


3363 


DCA 


TEMPI 


/ADDRiSS TO GET 


4406 


1763 


TAD 


I TEMPI 


/ROUTINE ADOR£SS 


4407 


3363 


DCA 


TEMPI 




4410 


4763 


JMS 


I TEMPI 


/GENERATE PATTERN 


4411 


7040 


CMA 






4412 


3424 


DCA 


I LSTBLK 




4413 


3422 


DCA 


I POSITN 




4414 


4437 


JMS 


I NEWDRV 




4415 


5211 


JMP 


.-4 




4416 


3114 


DCA 


DIRFLG 




4417 


7001 


lAC 






4420 


3113 


DCA 


BLKINC 




4421 


1113 


WRTLPl, 


TAD BLKINC 


4422 


7510 


SPA 






4423 


7200 


ClA 






4424 


1424 


TAD 


I LSTBLK 




4425 


3020 


DCA 


RECORD 




4426 


4435 


JMS 


I SRCHIT 




4427 


1115 


TAD 


K0050 




4430 


6764 


lOT 


764 




4431 


1032 


TAD 


BFILOC 




4432 


3430 


DCA 


I CALOC 




4433 


1064 


TAD 


K7577 




4434 


3427 


DCA 


I WCLOC 




4435 


4761 


JMS 


I WRTSLP 


/CHECK 1.32 09.2701 (3PTI0NS 


4436 


5230 


JMP 


WRTLP1*7 


/RETURN, NOT :)ONE ALL 


443 7 


4437 


JMS 


I NEWDRV 


/RETURN, DONE ALL 


4440 


5221 


JMP 


WRTLPl 




4441 


1114 


TAD 


DIRFLG 


/SAVE WRITE DIR 


4442 


3771 


DCA 


I PATNUM* 


•1 /FOR ERROR TY^EOUTS 


4443 


1114 


TAD 


DIRFLG 


/MAKE 1ST RD ^ASS 


4444 


7040 


CMA 




/GO OTHER DIR£CTI0N 


4445 


3114 


DCA 


DIRFLG 




4446 


1113 


TAD 


BLKINC 


/MAKE BLOCK 


4447 


7041 


CMA 


lAC 


/INCREMENTED 


4450 


3113 


DCA 


BLKINC 


/COMPLIMENT 



J% 
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/TEST READ CaMPARE OPTION 






/EXAMINE Switches 




4451 


7604 


«DCOMP, 


LAS 




4452 


0121 


AND 


K0040 




4453 


7640 


S?A 


cla 




4454 


5344 


JMP 


R0SEND*13 




4455 


7040 


CHA 






4456 


3364 


DCA 


ROCPAS 




4457 


1422 


TAD 


I POSITN 




44*0 


3020 


DCA 


RECORD 




44*1 


4435 


JMS 


I SRcNIT 


/^INO BLOCK 


44i2 


1116 


TAD 


K0030 




44i3 


6764 


lOT 


764 


/CHANCE TO READ DATA 


44i4 


1033 


TAD 


erzLoc 




4469 


3430 


OCA 


I CALOC 




44«4 


1064 


TAD 


K7577 




44i7 


3427 


OCA 


! WCLOC 




447i 


4762 


»dclpi. 


JMS I 


RDSwLP /WAIT FOR RE 


447X 


5319 


JMP 


ROCEND 




447t 


6764 


lOT 


764 


/RESET ENABLES: 


4473 


1034 


TAD 


BF3L0C 




4474 


3430 


DCA 


I CALOC 




4475 


1064 


TAD 


K7577 




4474 


3427 


OCA 


I WCLOC 




4477 


4442 


JMS 


I OATACO 


/VERIFY DATA 'HkTTERN 


4?ii 


7175 


BUFrR2 




4901 


4767 


JMS 


I RERFLC 




4902 


4762 


JMS 


! RDSWLP 




4503 


5315 


JMP 


RDCENO 


/DONE ALL 


4904 


6764 


lOT 


764 


/RESET. ENABLES AGAIN 


4905 


1033 


TAD 


tF2L0C 




490« 


3430 


DCA 


I CALOC 




4507 


1064 


TAD 


K7577 




4910 


3427 


DCA 


I WCLOC 




4911 


4442 


JMS 


I DATACO 


/VERIFY DATA ^EAD 


4912 


7376 


BUrFR3 




4913 


4767 


JMS 


I RERFLG 




4914 


9270 


JMP 


RDCLPl 





AAAINDEC-08-D3BB-D 
66 



4515 
45i6 
4517 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4530 
4531 
4532 
45S3 
4534 
4535 

4536 
4537 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4550 
4551 
4552 
4553 
4554 
4555 
4556 
4557 
4560 



4565 
4566 
4567 
4570 



6772 

0110 
7640 
5331 
1427 
7640 
5331 
1430 
1366 
3330 
4442 
7l75 
4437 
5257 

III4 
7040 
3114 

1113 
7041 

3113 
2364 
7410 
5257 
7604 
0123 
7640 
5255 
1424 
1077 
7640 
5221 
1114 
7640 
5221 
5760 
5161 



AND 



4561 5200 

4562 5400 

4563 0000 

4564 0000 



4724 
7600 
4734 
0000 



S2A 

JMP 
TAD 
SZA 
JMP 
TAD 
TAD 
DCA 
JMS 
BUrFR2 

^qsend, 

JMP 
TAD 
CMA 
DCA 



IDT 
EiBIT 
CLA 

RDSEND 
I WCLOC 
CLA 

RDSEND 
! CALOC 
K7600 

«2 
i DATACO 



772 






JMS I 
RDC0MP*6 
DIRFLG 



TAD 
C„A 
DCA 
IS? 
SKP 
JMP 
CLA 
AND 
SiA 
JMP 
TAD 
TAD 
SZA 
JMP 
TAD 
SZA 
JMP 
JMP 



DIRFLG 

BLKINC 
lAC 

SLKINC 
RDCPAS 

RDC0MP*6 

OSR 

K0100 

CLA 

RDC0MP*4 

I lstblk 

K5077 

CLA 

WRTLPl 

DIRFLG 

CLA 

WRTLPl 

I .♦! 



WRRDND 



/END ZONE I\T£RRUP"^ 



/FORM BUFFER ADDRESS 



/OR BurFR3 
NEWDRV 



/GO OTHER OIRiCTlON 

/MAKE Block i mcrementer 
/qTher direction 



/REaD 
/YES 

/read 



Both ohections 
Other direction 



/written 2701 yet 
/WRITE next S£T 



wrtslp, 

f'DSwLP, 
TEMPI, 

^DCPAS. 



WRTSWS 

ROSWS 







/TO TiBT SWITCHES FOR WRITE 
/TO T£BT SWITCHES OR READ 
/READ PASS SWITCH 
/•I PASS 1 PASS 2 



4571 5157 



/routine address for patterns 
pattbl, ptable 

<7600, 7600 

rerflg, reflgs 
patnum, 

WRDIR 



■HI 
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/PATTERN GENERATION FqR 
/INITIAL WRITE TEST 

600 0000 GnPaT0» 

601 7300 CLA CLL 

602 4251 JMS GNSjRA 

603 5600 JMP I GNPAT0 

604 0000 GnPATI. 

609 7340 CLA CMA CLL 

606 4251 JMS GNSTRA 

607 5604 JMP I GNPATl 

610 0000 Gn(»AT2» 

611 7320 CLA STL 

612 4291 JMS GNSTRA 

613 9610 JMP I GNPAT2 



614 


0000 


5nPAT3» 


615 


1221 


TAD ,*4 


616 


7100 


CLL 


617 


4251 


JMS GNSTRA 


620 


5614 


JMP I GNPAT3 


621 


2525 


2525 


622 


0000 


CNPAT4. 


623 


1227 


TAD ,*4 


624 


7100 


clu 


625 


4251 


JMS GNSTRA 


626 


5622 


JMP 1 GNPAT4 


627 


5252 


5252 


630 


0000 


CNPAT5* 


631 


1235 


TAD .♦4 


632 


7100 


CLL 


633 


4251 


JMS GNSTRA 


634 


5630 


JMP ! GNPAT5 


635 


0707 


0707 


636 


0000 


CnPAT6» 


637 


1243 


TAD .♦4 


640 


7100 


CLL 


641 


4251 


JMS GNSTRA 


642 


5630 


JMP I GNPAT5 


643 


7070 


7070 


644 


0000 


GnPAT7» 


645 


1221 


TAD GNPAT4-1 


646 


7120 


STL 


647 


4251 


JMS GNSTRA 


650 


5644 


JMP I GNPAT7 
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/STORE AC CONTENTS IN BFIlOC 

/0« IF Lsl COMPLIMENT EVERY OTHER 



4651 


0000 


3NSTRA, 


4652 


3010 


OCA 10 


4653 


1032 


TAD BFILOC 


4654 


3011 


OCA 11 


4655 


1064 


TAD K7577 


4656 


3012 


OCA 12 


4657 


1010 


TAD 10 


4660 


3411 


DCA I 11 


4661 


2012 


ISZ 12 


4662 


7410 


SKP 


4663 


5651 


JMP I GNSTRA 


4664 


7420 


SNL 


4665 


5257 


JMP GNSTRA*6 


4666 


1010 


TAD 10 


4667 


7040 


CMA 


4670 


3010 


DCA 10 


4671 


5257 


JMP GNSTRA+6 


4672 


0100 


PARTAB, 0100 


4673 


0200 


0200 


4674 


0400 


0400 


4675 


1000 


1000 


4676 


2000 


2000 


4677 


4000 


4000 


4700 


0101 


0101 


4701 


0202 


0202 


4702 


0404 


0404 


4703 


1010 


1010 


4704 


2020 


2020 


4705 


4040 


4040 


4706 


7600 


7600 


4707 


7500 


7500 


4710 


7300 


7300 


4711 


6700 


6700 


4712 


5700 


5700 


4713 


3700 


3700 


4714 


7700 


7700 


4715 


7676 


7676 


4716 


7575 


7575 


4717 


7373 


7373 


4720 


6767 


6767 


4721 


5757 


5757 


4722 


3737 


3737 


4723 


7777 


7777 


4724 


4600 


'TABLE, GNP^ 


4725 


4604 


GNPATl 


4726 


4610 


GNPAT2 


4727 


4614 


GNPAT3 


4730 


4622 


GNPAT4 


4731 


4630 


GNPAT5 


4732 


4636 


GNPAT6 


4733 


4644 


GNPAT7 



/TEST READ ERRORS 
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/AND RESYnC next BLQCK 



4734 


5334 


''EFLGS, JMP 


4735 


2742 


IS? 1 .♦S 


4736 


5744 


JMP I .■»'6 


4737 


2743 


ISZ I .♦4 


4740 


5744 


JMP I ,*4 


4741 


5734 


JMP I REFlGS 


4742 


5150 


COFLAG 


4743 


5526 


NOSERR 


4744 


4461 


RDCOMP*10 
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/COMPARE DATA SUBROUTIME FOR 






/WRITE / READ BAS 


IC DaTA PATTERNS 






*5000 




5000 


5200 


CoDa^A' -"MP . 




5001 


7220 


CLA 




5002 


1031 


TAD BFlWDl 


/GET <N0WN 01 


5003 


3345 


DCA KNDATA 


/ADDRESS 


5004 


1600 


TAD I CODATA 


/U'^known data 


5005 


3346 


DCA UKDATA 


/ADDRESS 


5006 


2220 


IS2 CODATA 




5007 


7040 


CMA 




5010 


3350 


DCA COFLAG 


/SET ERR COJNF FLAG 


5011 


1064 


TAD K7577 




5012 


3347 


OCA NUMWRD 


/NUMBER OF WO^DS 






/TST for DELETE COMPARE 


5013 


7604 


LAS 




5014 


0102 


AMD K0400 




5015 


7640 


SZA CLA 




5016 


5600 


JMP I CODATA 




5017 


1745 


COLOOP. TAD I 


kndata 


5020 


7041 


CMA lAC 




5021 


1746 


TAD I UKDATA 




5022 


7640 


SEA CLA 


/WORDS = 


5023 


5231 


JMP COCOMP 


/NO TEST COviP.ilMENT 


5024 


2345 


C0INCR» ISE KNDATA 


5025 


2346 


ISZ UKDATA 




5026 


2347 


IS? NUMWRD 


/DONE ALL 


5027 


5217 


JMP COLOOP 




5030 


5600 


JMP I CODATA 


/EXIT 


5031 


1745 


CoCOMP, TAD I 


knOata 


5032 


7450 


SNA 


/WORD = 0'S 


5033 


5237 


JMP .♦4 


/YESi Try COMPLIMENT 


5034 


7040 


CMA 




5035 


7640 


S2A CLA 


/WORDsl'S 


5036 


5251 


JMP COERRO 


/NO Data erro^' 


5037 


1745 


TAD I KNDATA 




5040 


7001 


lAC 


/MAKE 2'S COM'I 


5041 


1746 


TAD I UKDATA 




5042 


7640 


SZA CLA 


/COMPLIMENTS « 


5043 


5251 


JMP COERRO 


/NO ERROR 


5044 


2345 


ISZ KNDATA 




5045 


2346 


ISZ UKDATA 




5046 


2347 


ISZ NUMWRD 




5047 


5237 


JMP C0C0MP*6 


/STAY IN TEST COmP 



5050 5600 JMP I CODATA 
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/DATA ERROR TYPEOUT 



5051 


2350 


COEIRRO, IS2 COFLAG /FIRST ERROR 


5052 


5307 


JMP COERRl 


/NO HQR AUREA3Y TYPED 


5053 


4444 


JMS I ERRSTP 


/STOP Tape 


5054 


4446 


JMS I RDATTY 




5055 


4456 


JMS I TYPTEX 




5056 


0044 


44 




5057 


4164 


4164 


~ 


5060 


4100 


4100 




5061 


4562 


4562 




5062 


6257 


6257 




5063 


6277 


6277 




5064 


1022 


TAD POSITN 




5065 


4451 


JMS I TYPCON 




5066 


4456 


JMS I TYPTEX 


/TYPE Block 


5067 


0042 


42 




5070 


5457 


5457 




5071 


4353 


4353 




§072 


0067 


67 




5073 


6251 


6251 




5074 


6464 


6464 




5075 


4556 


4556 




5076 


0077 


0077 




5077 


1357 


TAD WRDIR 


/TYPE DIRECTION 


5100 


7650 


SNA CLA 


/BtOCK WAS WRITTEN 


5101 


5306 


JMP ♦♦S 




5102 


4704 


JMS I ,*2 




5103 


5307 


JMP COERRl 




5104 


1545 


tybkw 




5105 


1555 


tyFwd 




5106 


4705 


JMS I .-1 





5107 


4456 


COERRI, JMS 


5110 


7777 


7777 


5111 


7720 


7700 


5112 


1345 


TAD KNDATA 


5113 


4451 


JMS I TYPCON 


5114 


4456 


JMS I TYPTEX 


5115 


0053 


53 


5116 


5657 


5657 


5117 


6756 


6756 


5120 


7700 


7700 


5121 


1346 


TAD UKDATA 


5122 


4451 


JMS I TYPCON 


5123 


4456 


JMS I TYPTEX 


5124 


0065 


65 


5125 


5653 


5653 


5126 


5657 


5657 


5127 


6756 


6756 


5130 


7700 


7700 


5131 


1344 


TaD KNDaTa"!. 


5132 


4451 


JMS I TYPCON 


5133 


4456 


JMS I TYPTEX 


5134 


0041 


41 


5135 


4444 


4444 


5136 


6263 


6263 


5137 


0053 


53 


5140 


5657 


5657 


5141 


6756 


6756 


5142 


7700 


7700 


5143 


5224 


JMP COINCR 


5144 


5145 


,+1 


5145 


0000 


KnDATA, 


5146 


0000 


JKDATA, 


5147 


0000 


NUMWRD, 


5150 


0000 


Cof^LAG, 


5151 


5351 


s^AETYP. JMP 


5152 


4444 


JMS I ERRSTP 


5153 


4756 


JMS 1 ,*3 


5154 


4447 


JMS I SBTYPE 


5155 


5751 


JMP I WAETYP 


5156 


1451 


TYWALL 


5157 


0000 


^RDIR, 
STPERRsERRSTP 
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■ptex /lime feed to 
/separate e=?r3rs 



/TYPE Good data 



/TYPE Data read 



/TYPE ADDRESS OF 

/KNOW Data 
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5160 


4570 


PATNUM 






5161 


1360 


'^RRDND, TAD 


-1 




5162 


4451 


JMS I TYPCON 




/TYPE Pattern numbe 


5163 


4456 


JMS I TYPTEX 






5164 


004$ 


45 






5165 


5644 


5644 






5166 


7700 


7700 






5167 


7604 


CLA OSR 






5170 


0075 


AND K0200 






5171 


7650 


SNA CLA 




/DO NEXT PATT£RN 


5172 


5777 


JMP 1 .♦S 




/NO USE SWS 


5173 


1760 


TAD I WRRDNDbI 




5174 


7001 


I AC 




/pATNUM*! 


5175 


9776 


JMP I .♦l 






5176 


4401 


WRTTST*! 






5177 


4400 


WRTT8T 
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/WAIT FOR WRITE INTERRUPT 

/AND TEST SWITCHES FOR NUm BLOCKS 

»5200 



5200 


52ZI0 


^rTsws, 


JMP „ 




5201 


4440 


JMS 


! WAITI 


/WAIT NORMA^ INT 


5202 


0001 


1 






5203 


5235 


JMP 


wrtezt 


/TEST For emd zone 


5204 


1427 


TAD 


I WCLOC 




5205 


7640 


SZA 


CLA 


/WC GO TO 


5206 


5241 


JMP 


WRTEZT*4 


/NO Error 


5207 


7604 


CLA 


OSR 




5210 


0117 


And 


blkBts 




5211 


7450 


SNa 




/INDICATE 1 0^ 32 BLOCKS 


5212 


5221 


JMP 


.♦7 


/NO DO ALL 


5213 


0120 


AND 


BLKBIT 




5214 


7650 


SNA 


CLA 


/BLOCK 


5215 


5312 


JMP 


WRT32 


/NO T£6T 32 BLOCKS 


5216 


2200 


ISZ 


WRTSWS 


/INC EXIT ADDRESS 


5217 


1075 


TAD 


K0200 




5220 


6764 


lOT 


764 


/STOP TAPE 


5221 


1020 


TAD 


RECORD 




5222 


3422 


DCA 


1 POSITN 




522 3 


1020 


TAD 


RECORD 




5224 


1113 


TAD 


BLKINC 




5225 


3020 


DCA 


RECORD 




5226 


1114 


wrTswa, 


TAD DIRFLG 


5227 


7640 


S2A 


CLA 


/GOING F0RWAR3 


5230 


5600 


JMP 


I WRTSWS 


/BACKWARD EXI f 


5231 


1424 


TAD 


I LSTBLK 




5232 


7001 


lAC 




/INCREMENT >A3T 


5233 


3424 


DCA 


I LSTBLK 


/BLOCK WRITTEN 


5234 


5600 


JMP 


1 WRTSWS 




5235 


6772 


WRTE2T, 


JOT 772 




5236 


0110 


AND 


EZBIT 




5237 


7640 


SZA 


CLA 




5240 


5301 


JMP 


wrteha 




5241 


6761 


lOT 


761 




5242 


0075 


AND 


K0200 


/IF TAPE NOT STOPP 


524 3 


7650 


SNA 


CLA 




5244 


5251 


JMP 


.♦5 


/IF Sw3al 


5245 


7604 


LAS 






5246 


0102 


AND 


K0400 




5247 


7640 


SZA 


CLA 




5250 


5207 


JMP 


WRTSWS+7 




5251 


4444 


JMS 


1 ERRSTP 




5252 


4450 


JMS 


1 WDATTY 




5253 


1026 


TAD 


RECRDK 




5254 


4451 


JMS 


I TYPcON 
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5255 


4456 


JMS 


I TYPTEX 


5256 


0042 


42 




5257 


5457 


5457 


'260 


4353 


4353 


5261 


7700 


7700 


5262 


4447 


JMS 


1 SBTYPE 


5263 


1027 


TAD 


wctoc 


5264 


4451 


JMS 


I TYPCON /T 


5265 


4456 


JMS 


I TYPTEX 


5266 


0067 


67 




5267 


1643 


1643 


5270 


1677 


1677 


5271 


4435 


JMS 


I SRCHIT 


5272 


1115 


TAD 


K0050 


9273 


6764 


lOT 


764 


5274 


1032 


TAD 


BFIUOC 


5275 


3430 


DCA 


I CALOC 


5276 


1064 


TAD 


K7577 


5277 


3427 


OCA 


I WCLOC 


9300 


5201 


JMP 


WRTSWS*1 


9301 


1020 


hrteia. 


TAD RECORD 


9302 


1126 


TAD 


K5076 


9303 


7650 


SNA 


CLA 


9304 


5310 


JMP 


,♦4 


9309 


1020 


TAD 


RECORD 


9306 


7700 


SMa 


CUa 


9307 


5241 


JMP 


WRTEZT*4 


5310 


2200 


ISZ 


WRTSWS 


9311 


5600 


JMP 


I WRTSWS 


5312 


1020 


WRT32. 


TAD RECORD 


5313 


3422 


OCA 


I POSITN 


5314 


1020 


TAD 


RECORD 


5315 


1113 


TAD 


eiKINC 


5316 


3020 


DCA 


RECORD 


5317 


1114 


TAD 


DIRFLG 


5320 


7041 


CMA 


lAC 


5321 


1020 


TAD 


RECORD 


5322 


0127 


AND 


K0037 


5323 


7640 


S2A 


CLA 


5324 


5226 


JMP 


WRTSWA 


5325 


1075 


TAD 


K0200 


5326 


6764 


IDT 


764 


5327 


2200 


IS? 


WRTSWS 


5330 


5226 


JMP 


WRTSwA 



/TYPE WHATS LiPT OF WC 
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/WAIT FOR READ INTERRUPT AND 

/TEST SWITCHES TOR NUMBER OF BL3C<B 



5400 
5401 
5402 
5403 
5404 
5405 
5406 
5407 
5410 
5411 
5412 
5413 
5414 

5415 
5416 
5417 
5420 
5421 
5422 
5423 
5424 
5425 
5426 
5427 
5430 
5431 
5432 
5433 

5434 
5435 
5436 
5437 
5440 
5441 
5442 
5443 
5444 
5445 
5446 
5447 
5450 
5451 



5200 
4440 
0001 
5252 
1427 
7640 

5302 
7040 
3326 
7604 
0117 
7450 
5225 

0120 
7650 
5234 
1075 
6764 
1020 
3422 
5600 
1020 

3422 
1020 
1113 
3020 
2200 
5600 

1020 
3422 

1020 
1113 
3020 
1114 
7041 
1020 
0127 
7640 
5232 
1075 
6764 
5600 



»5400 




=?dsws, 


JMP . 


JMS 

1 

JMP 


I WAITI 


TSRDEZ 


TAD 


1 WCLOC 


SZA 


CLA 


JMP 


RDSERR 


CMA 




OCA 


NOSERR 


CLA 


OSR 


And 


blkBts 


SNA 




jmp .♦ii 


L /NO»aLL 


AND 


BLKBIT 


SNA 


CLA 


JMP 


RDSW32 


TAD 


K0200 


lOj 


764 


TAD 


RECORD 


OCA 


I POSITN 


JMP 


I RDSWS 


TAD 


RECORD 


DCA 


I POSITN 


TAD 


RECORD 


TAD 


BLKINC 


DCA 


RECORD 


IS2 


RDSWS 


JMP 


I RDSWS 



/WAIT NORMAL INTERRUPT 

/TEST FOR END ZONE 



/I OR 32 bLOC<S 



/I BLOCK 

/NO, 32 BLOCKS. 

/I BLOCK, stO'' tape 



/NEW POSITION 
/NExT BLOCK 



RDSw32» 
OCA 



I 



TAD RECORD 
POSITN 



TAD RECORD 
TAD BLKINC 
DCA RECORD 
TAD DIRFLG 
CMA lAC 
TAD RECORD 
AND K0037 
SZA CLA 
JMP RDSW32-2 
TAD K0200 
lOT 764 
JMP I RDSWS 



/♦ OR - 1 



/DONE An INC 3F 32 



/32 BLOCKSi STOP TAPE 
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5452 


6772 


TSRDEE, 


lOT 772 




5453 


0110 


AND 


E2BIT 




5454 


7650 


SNA 


CLA 


/END 20NE I^^jT 


5455 


5302 


JMP 


RDSERR 


/NO, ERROR 


5456 


1020 


TAD 


RECORD 




5457 


1126 


TAD 


K5076 


/BLOC<i 2702 


5460 


7650 


SNA 


CLA 




5461 


5265 


JMP 


,♦4 


/2702 DOESN'T EXIST 


5462 


1020 


TAD 


RECORD 




5463 


7700 


SMA 


CLA 


/BLOCK'l 


5464 


5302 


JMP 


RDSERR 


/NO, EZ STAT IN ERROR 


5465 


5600 


JMP 


I ROSWS 


/EXIT 


5466 


5266 


paRrse, 


JMP . 


/STOP TAPE 


5467 


4444 


JMS 


I ERRSTP 




5470 


4446 


JMS 


I RDATTY 


/READ And DIR£CTI0N 


5471 


1026 


TAD 


RECRDK 




5472 


4451 


JMS 


I TYPCON 


/TYPE BLOCK 


5473 


4456 


JMS 


I TYPTEX 




5474 


0042 


42 






5475 


5457 


5457 




5476 


4353 


435;i 


5 




5477 


7700 


77012 


1 




5500 


4447 


JMS 


I SBTYPE 




5S01 


5666 


JMP 


! PARRSE 




5902 


6761 


Rdserr, 


lOT 761 




5503 


0075 


AND 


K0200 




5504 


7650 


SNA 


CLA 




5505 


5312 


JMP 


.♦5 




5506 


7604 


LAS 






5507 


0102 


AND 


K0400 




5510 


7640 


SZA 


CLA 




5511 


5207 


JMP 


RDSWS%7 




5512 


4266 


JMS 


PARRSE 




5513 


3326 


OCA 


NOSERR 




5514 


1427 


TAD 


I WCLOC 




5515 


7650 


SNA 


CLA 


/WC Go TO 


5516 


5211 


JMP 


RDSWS*11 


/YES 


5517 


1027 


TAD 


WCLOC 




5520 


4451 


JMS 


I TYPCON 




5521 


4456 


JMS 


I TYPTEX 


/TYPE WORD COJNT 


5522 


0067 


67 






5523 


1643 


1643 






5524 


1677 


1677 






5525 


5211 


JMP 


RDSWS*11 




5526 


0000 


nqserr. 
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/WRITE DATA SCOPE LOOp 
/iNjO ERROR CHECKING BOUNCES OFF £2 
■/PATTERN SELECTION BUS 9, 10, H 

»l600 

1600 7624 ^RSCOP, las 

1601 0073 AiMD K0007 

1602 1371 TAD PATT^A /PAT ^^UM •»■ TABlE AqRS 

1603 3370 DCA TEMPY 

1604 1770 TAD I TEMPY 

1605 3370 DCA TEMPY 

1606 4770 JMS I TEMPY /GENERATE PATTERN 

1607 1103 TAD K0214 /SEARCH + 

1610 1060 TAD UNFUNC /DRIV£i 

1611 6766 lOT 766 

1612 7440 S^A 

1613 7402 HLT /lOT 766 OR 754 DID NOT CLEAR AC 

1614 1025 TAD IDCON 

1615 3430 DCA I CALOC 

1616 6773 lOT 773 /WAIT FqR F^A3' 

1617 5216 JMP .-1 

1620 7710 SPA CLA 

1621 5255 JMP WRfSEZ /ER^O^' STATUS 

1622 1115 TAD K0050 

1623 6764 IQT 764 /CHANGE TO »^RlTE 

1624 7440 S2A 

1625 7402 HLT /I^T 764 DID ^OT CLEAR AC 

1626 1032 TAD BFILOC 

1627 3430 DCA I CALOC 

1630 1064 TAD K7577 

1631 3427 DCA I WCLOC 

1632 6761 JOT 761 

1633 0075 AND K0200 

1634 7650 SNA CLA 

1635 5243 JMP WRSCOl 

1636 1427 TAD I WCLOC 

1637 7650 SNA CLA 

1640 5243 JMP .-^3 

1641 6771 IQT 771 /WAIT FQR F.A3i 

1642 5232 JMP .-10 

1643 1375 <^RSC01. TAD K7730 

1644 3370 DCA TEMPY 

1645 6771 lOT 771 

1646 7410 SKP 

1647 5252 JMP .+3 

1650 2370 IS2 TEMPY 

1651 5245 JMP .-4 

1652 1376 TAD K0052 /LEAVi' ERROR FLAGS SET 

1653 6764 lOT 764 

1654 5212 JMP WRSC0P*12 

1655 6772 •^RTSEZ, IOT 772 

1656 0374 AND K1000 

1657 7650 SNA CLA /END ZONE 

1660 5265 JMP ,+5 /NO START SEARCH AGAIN 

1661 6761 IOT 761 /END ZONE SET 

1662 7040 CMA /CHANGE DIRECTION 

1663 0102 AND K0400 

1664 5207 JMP WRSC0P*7 

1665 6761 IOT 761 
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1666 5263 jmp .-3 
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/read data scope loop 
/ignqh^es all errors 
/bounces off end 20ne 



1667 


1372 


•^dscop, 


TAD 


K0220 /READ DATA 


1670 


1060 


TAD 


unfunc 


/♦ DRIVE 


1671 


6766 


lOT 


766 




1672 


7440 


SHA 






1673 


7402 


HLT 




/lOT 764 013. "inl CLEAR AC 


1674 


1033 


TAD 


BF2L0C 




1675 


3430 


OCA 


I CALOC 




1676 


1064 


TAD 


K75 77 




1677 


3427 


OCA 


I ^CLOC 




1700 


6761 


IQT 


761 


/MONITOR M0T13N 


1701 


0075 


AMD 


K0200 


/BI r IN CASE IT=0 


1702 


7650 


S'^JA 


ClA 




1703 


5311 


JMP 


.+6 




1704 


1427 


TAD 


I wCLOC 


/MONITOR WO^O K 


1705 


7650 


SNA 


CLA 




1706 


5311 


JMP 


.+3 




1707 


6771 


ID "I 


771 


/AMD FLAGS 


1710 


5304 


J MP 


.-4 




1711 


13/5 


TAD 


K7730 




1712 


3370 


DCA 


TEMPY 




1713 


6773 


lOT 


773 


/MONITOR FLAG 


1714 


7410 


SKP 




/FOR 200 MICR3 SEC. 


1715 


5320 


JMP 


.+3 




1716 


2370 


IS? 


TEMPY 




1717 


5313 


JMP 


,-4 




1720 


0374 


AND 


K1000 




1721 


7640 


S?A 


CLA 


/Ei^D 20NE S-:T 


1722 


5330 


JMP 


.+6 


/yes# reverse 


1723 


6761 


=?DSCni, 


IDT 


761 


1724 


7040 


C|^A 






1725 


0075 


AND 


K0200 


/IN CASE GOS0 


1726 


6764 


lOT 


764 


/RESET ENAB_E5 


1727 


5272 


JMP 


RDSCOP^. 


3 


1730 


6761 


lOT 


761 




1731 


7040 


CM A 






1732 


0102 


AND 


K0400 


/CHAN3E DIRECTION 


1733 


5267 


JMP 


RDSCOP 
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'^StARCH SCOPE LOOP JGnOrES ERRORS 
/BOijMCFS OFF END ZOnES 
/DISPLAYS LAST BLOCK H AC 



1734 


1123 


5 R S C r.) P , 


TAD K0214 /SEARCh 


1735 


1060 


TAD 


UiMFUNC 


/+ DRIVE 


1736 


6766 


lOT 


766 




1737 


7440 


SZA 






1740 


7402 


HLT 




/lOT 764 DI3 >I0T CLEAR 


1741 


1377 


TAD 


K3500 




1742 


3010 


OCA 


10 




1743 


1031 


TAD 


BFlWDl 




1744 


3430 


DCA 


I CALQC 




1745 


1431 


TAD 


I BFIWDI 


/DISPLAY BL3C<i 


1746 


2010 


IS? 


10 


/WAIT 1 BLOCK 


1747 


5346 


JMP 


.-1 


/APPROX 


1750 


7200 


CLA 






1751 


6772 


lOj 


772 




1752 


0374 


AND 


K1000 


/READ B 


1753 


7640 


S2A 


CLA 


/END 20NE 


1754 


5362 


JMP 


.+6 


/YES REVERSE 


1755 


6761 


lOT 


761 




1756 


7040 


CMA 




/IN CASE GO=0 


1757 


0075 


AND 


K0200 




1760 


6764 


lOT 


764 




1761 


5337 


JMP 


SRSCOP-^3 




1762 


6761 


lOT 


761 




1763 


0075 


AND 


K0200 




1764 


7640 


S2A 


CLA 




1765 


7402 


HLT 




/E2 DID NOT ZiRO MOTION 


1766 


1373 


TAD 


K0600A 




1767 


5360 


JMP 


.-7 


/COMPLEMENT DIRECTION 


1770 


0000 


TEMPY, 







1771 


4724 


^AlTRA, 


PTABLE 




1772 


0220 


<0220, 


220 




1773 


0600 


<0600A, 


600. 




1774 


1000 


<1000, 


1000 




1775 


7730 


<7730, 


7730 




1776 


0052 


<0'^5? , 


52 




1777 


35i30 


<3^0';^, 


350k) 





AC 
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= AUSE 



5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 

5610 
5611 
5612 
5613 
5614 
5615 
5616 
5617 
5620 
5621 
5622 
5623 

5624 
5625 
5626 
5627 
5630 
5631 
5632 
5633 
5634 
5635 
5636 
5637 
5640 
5641 
5642 
5643 
5644 
5645 
5646 
5647 
5650 

5651 
5652 



1100 
3020 
7040 
3114 
4435 
1116 
6764 
1032 

3430 
1357 
3427 
1427 
7650 
5221 
6771 
5213 
5242 
7001 
7040 
3427 

1032 
3430 

1122 
6764 
7040 
3431 
4440 
0001 
5237 

1122 
520^ 
4641 
5200 
5l5l 
6772 
0110 
7640 
5251 
4650 
5200 
5466 

4437 

5200 



/TAPE 4 OF TC01 BASIC EXERCISER 

/PARITY GENERATION TEST 

/IS CORRECT PARITY GENERATED 

/BEGIN BY WRITING REV CKSuMS TO 

/BACKWARD IS 77s00 PWD 

• 5600 

TAD K2701 
RECORD 



?ARTST, 
DCA 
CMA 
DCA 
JMS 
TAD 
IDT 
TAD 

DCA 
TAD 
DCA 
TAD 
SNA 
JMP 
lOT 
JMP 
JMP 
lAC 
CMA 
DCA 

TAD 
DCA 
TAD 
lOT 

cma 

DCA 
JMS 
1 

JMP 
TAD 
JMP 
JMS 
JMP 
WAET 
f'AREEl, 
AND 
S2A 
JMP 
JMS 
JMP 
PARR 



DIRFLG 
I SRCHIT 
K0030 
764 
BFILOC 

I CALOC 

K7600B 

I WCLOC 

I WCLOC 

CLA 

,♦4 

771 

.-4 

PAREZl 



I WCLOC 

BFILOC 
I CALOC 
K0170 
764 



BFlWDl 
WAITI 



/FIND 2701 

/BACKWARDS 

/SEAR-H TO READ DATA 

/DUMMr INPUT 



/WAIT FOR WCT3te-l 

/FLAG SET 

/COULD BE END ZONE 



/2 WORDS 



/TO W^ilTE ALL CONTINUOUS 



,♦3 

K0170 

PARTST+6 

I .+2 

PARTST 

YP 

lOT 772 
EZBIT 
CLA 
.♦4 
I ,*2 
PARTST 
SE 



/BACK TO READ DATA 



/END ?ONE INT, 



JMS I NEWDRV 
JMP PARTST 



/pPE^^AHE NEXT DRiv'E 
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5653 
5654 
5655 
5656 
5657 
5660 
5661 
5662 
9663 
9664 
9669 

9666 
9667 
9671 

5671 
9672 
9673 
9674 
9679 
9676 
9677 
9700 
9701 
9702 



9703 
9704 
9705 
9706 
5707 
9710 
9711 
9Vl2 

5713 
5714 
5715 

S716 
5717 
5720 
5721 
5722 

5723 
5724 
5725 
5726 
5727 
5730 
5731 
5732 
5733 
5734 
5735 



1356 
3010 
3114 
3020 
3422 
4435 
1119 
6764 
1410 
3431 
1032 

3430 

7040 
3427 
4440 
0001 
9344 
1431 
7040 
7690 
9303 
2020 
2422 
9262 



3431 
6764 
7040 
3427 
1032 
3430 
1431 
1123 

3431 
1431 
7450 
5323 
0071 
7640 
2431 
5325 

1124 
3431 
4440 
0001 
5344 
2422 
2020 
1431 
7040 
7640 
5304 



paRwli. 

DCA 10 

OCA OIRFLG 

DCA RECORD 

OCA I POSITN 

JMS I SRCHIT 

TAD K0050 

lOT 764 

TAD I 10 

OCA I BFIWOI 

TAD BFILOC 

DCA I CALOC 

CmA 

DCA I WCLOC 

JMS I WAITI 

1 

JMP PARWER 

TAD 1 BFIWOI 

CMA 

SNA CLA 

JMP ,*4 

ISf RECORD 

ISl I POSITN 

JMP PARWL1*7 



TAD PARLOC 



/FIND BLOCK FWD 
/WRITE DATA 



/ONLY WRITE 1 WD 

/REST OF BLOC^i SHOULD 
/GO TO iERO'S 



/DO ALU ONES fET? 
/YES 

/COUNT BLOCKS 



/INCREMENTING PARITY PATTERNS 
/0100 TO 7700 AND 0101 TO 7777 
PaRWl2» DCA I BFlwOl 

Tot 764 

CMA 

DCA I WCLOC 

TAD BFlLOC 

DCA I CALOC 

TAD I BFlWDl /UPPER ♦l 

TAD K0100 



DCA I BFlWDl 
TAD I BFlWDl 
SNA 

JMP t*5 
AND K0077 
S2A CLA 
ISZ I BFlWDl 
JMP *3 



TAD 

DCA 

JMS 

1 

JMP 

ISZ 

ISZ 

TAD 

CmA 

SZA 

JMP 



K0101 

I BFlWDl 

I WAITI 

PARWER 
I POSITN 
RECORD 
I BFlWDl 

CLA 
PARWL2*! 



/UPpER GONE TOi 
/YES# SET WORJi To 0101 

/INCREMENTIMG LWR 
/ADD 1 TO LOW£R 



/DONE UPPER TO 7700 
/STaRT both E3UAL 



/SHOULD GET NJi ERROR STATyS 



^AAINDEG-08-D3BB-D 
84 



5736 
5737 
5740 
5741 
5742 
5743 

5744 
5745 
5746 
5747 
5750 
5751 
5752 



1075 
6764 
4437 
5253 
5743 
6200 

4444 
4450 
1026 
4451 
0042 
5457 
4353 



5753 7700 

5754 4447 

5755 5253 



TAD K0200 
lOT 764 
JMS I NEWDRV 
JMP PARWLl 
JMP I ,+1 
PARTSl 



/READ AND CHECK 
/FOR CORRECT :kSUMS 



PaRWER, JMS I ERRSTP 

JMS I WDATTY 

TAD RECRDK 

JMS I TYPCON 

42 

5457 

4353 

7700 

JMS I SBTYPE 

JMP PARWLl 



5756 4671 ?aRLOC, PARTAB*1 

5757 7600 <7600B, 7600 
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6000 
6001 
6002 
6003 
6004 
6005 

6006 
6007 
6010 
6011 
6012 
6013 
6014 
6015 

6016 
6017 
6080 
6021 
6022 
6023 
6024 
6025 
6026 
6027 
6030 
6031 
6032 
6033 
6034 
6035 
6036 
6037 
6040 



3020 
3114 
4435 
1355 
6764 
1132 

6764 
1032 
3430 
1375 
3427 
1427 
7650 
5221 

6771 
5213 

5356 
1032 

3430 
7001 
7040 
3427 
1122 
6764 
1431 
7040 
7650 
3431 
4440 
0001 
5311 
4361 
5205 



6041 1075 

6042 6764 

6043 4437 

6044 5200 



/WRITE BLOCKS TO WRONG 

/PARITY AND VERIFY PARTITy ERRORS 

/GENERATED (GOING BACKWARD REWRlT£lREV. CKSUM) 

• 6000 



PARTS4. 



OCA RECORD 



DCA DIRFLG 
JMS I SRCHIT 
TAD K0140 
lOT 764 
TAD K0170 

lOT 764 
TAD BFILOC 
DCA I CALOC 
TAD K7600A 
DCA I WCLOG 
TAD I WCloC 
SNA CLA 
JMP ,♦4 



lOT 

JMP 

JMP 

TAD 

OCA 

lAC 

CMA 

DCA 

TAD 

lOT 

TAD 

CMA 

SNA 

DCA 

JMS 

1 

JMP 

JMS 

JMP 



771 

i«4 

PARRE3 
BFILOC 
I CALqC 



I WCLOC 

K0170 

764 

I BFIWDI 

CLA 

I BFIWDI 

I WAITI 

PRWAE 

PR4INC 

PARTS4*5 



TAD K0200 
lOT 764 
JMS I NEWDRV 
JMP PARTS4 



/FIND LAST BLOCK BKWD 

/CHNG TO WRITE ALL 

/TO R£«^0 DATA 



/WAIT For LAST 
/WORD In 



/NO F.lfcCS FOR READ DATA 
/WRlTil CHECKSUM TO FIRST WORD 



/WRITE ALL 

/WRITE ALL CONTINUOUS 

/WRITii ALL STATUS ERR 
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/READ BLOCKS FORWARD AND 







/EXPECT PARITY ERRORS ThEn BACKWA^ 


6045 


3020 


=»ARTS5, DCA I 


RECORD 


6046 


3114 


OCA DIRFLG 




6047 


4435 


JMS I SRCHIT 


/FIND FWO OR 


6050 


1116 


TAD K0030 




6051 


6764 


lOT 764 


/READ Data 


6052 


1032 


TAD BFiLOC 




6053 


3430 


DCA I CALOC 




6054 


1064 


TAD K7577 




6055 


3427 


DCA I WCLOC 




6056 


4440 


JMS I WAITI 


/EXPECT PARITY 


6057 


4201 


4201 


/ERROR 


6060 


5277 


JMP PRT5EZ 




6061 


6772 


lOT 772 




6062 


00^5 


AND K0200 




6063 


7650 


SNA CLA 


/PARITY ERROR 


6064 


5314 


JMP PARRE4 


/NO 


6065 


4361 


JMS PR4INC 




6066 


5251 


JMP PARTS5*4 




6067 


1075 


TAD K0200 




6070 


6764 


lOT 764 


/STOP Tape 


6071 


4437 


JMS I NEWORV 


/CHANGE DRIVES 


6072 


5245 


JMP PARTS5 





LAST 



Ji^. 



6073 


1422 


6074 


3020 


6075 


7040 


6076 


9246 


6077 


1114 


6100 


7700 


6101 


9314 


6102 


1020 


6103 


7700 


6104 


9314 


6105 


4437 


6106 


9273 


6107 


9710 


6110 


9600 
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/rEad blocks backwards and expect 

/parity errors 

?aRts6, tad I posiTn /last block 

OCA RECORD 

CmA /BACKWARDS 

JMP PARtS5*1 

PRTsCi, TAD DIRFLG 

SMA CLA /GOING BACKWARD 

JMP PARRE4 /NO, ERROR ' 

TAD RECORD 

SMA CLA /DONE BLOCK 

JMP PARRE4 /NO. ERROR 

JMS I NEWORV 

JMP PARTS6 

JMP I .♦I 

PARTST 



6111 4713 PrWAC. JMS I .*2 

6112 9202 JMP PARTS4*2 

6113 9191 WAETYP 



6114 


4444 


P1IRRE4, JMS I ERRSTp 


6119 


4446 


JMS I RDATTY 


6116 


1026 


TAD RECRDK 


6117 


4491 


JMS I TYPcON 


6120 


4496 


JMS I TYPTEX 


6121 


0042 


42 


6122 


9497 


9457 


6123 


43S3 


4353 


6124 


7777 


7777 


6129 


6041 


6041 


6126 


6251 


6251 


6127 


6471 


6471 


6130 


0049 


45 


6131 


6262 


6262 


6132 


5762 


9762 


6133 


iS045 


45 


6134 


7060 


7060 


6139 


4543 


4543 


6136 


6445 


6445 


6137 


4477 


4477 



6140 4447 JMS I SBTyPE 
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6141 


1114 


TAD 


DIRFLG 


6142 


7640 


SZA 


CLA 


6143 


1075 


TAD 


K0200 


6144 


1031 


TAD 


BFIWDI 


6145 


4451 


JHS 


I TYPCON 


6146 


4361 


JMS 


PR4INC 


6147 


7410 


SKP 




6150 


5271 


JMP 


PARTS6-2 


6151 


1020 


TAD 


RECORD 


6152 


7710 


SPA 


CLA 


6153 


5325 


JMP 


PRWAE-4 


6154 


5247 


JMP 


PARTS5*2 


6155 


0140 


<0140, 


140 


6156 


4760 


=ARRE3» 


JMS I 


6157 


5202 


JMP 


PARTS4*2 


6160 


5466 


PARRSE 


6161 


5361 


?»R4INC, 


JMP , 


6162 


1114 


TAD 


DIRFLG 


6163 


7450 


SNA 




6164 


2020 


ISZ 


RECORD 


6165 


1020 


TAD 


RECORD 


6166 


3020 


DCA 


RECORD 


6167 


1422 


TAD 


I POSITN 


6170 


7040 


CMA 




6171 


1020 


TAD 


RECORD 


6172 


7650 


SNA 


CLA 


6173 


2361 


ISZ 


PR4INC 


6174 


5761 


JMP 


I PR4INC 


6175 


7600 


K7600A, 


7600 
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6200 


3020 


6201 


3114 


6202 


4435 


6203 


7040 


6204 


3430 


6205 


1074 


6206 


6764 


6207 


1130 


6210 


6764 


•211 


1032 


♦212 


3430 


6213 


1064 


6214 


3427 


6215 


1427 


6216 


7690 


6217 


5223 


6220 


6771 


6221 


9215 


• 222 


9342 


6223 


7040 


6224 


3427 


6229 


1130 


6226 


6764 


6227 


4440 


6230 


0001 


6231 


9342 


6232 


1431 


6233 


0071 


6234 


7640 


6235 


5240 


6236 


1431 


6237 


0070 


6240 


1756 


6241 


1123 


6242 


7640 


6243 


5310 


6244 


4755 


6245 


5207 


6246 


1075 


6247 


6764 


6250 


4437 


6251 


5200 



/READ THE GENERATED CkSUMS BACK 
/AND VERIFY THAT THEY ARE CORRECT 
«6200 

paRtsi, dca record 
dca dirflg 



JMS I SRCHIT 

CMA 

DCA I CAloC 

TAD K0020 

lOT 764 

TAD K0010 

lOT 764 
TAD BFILOC 
DCA I CALOC 
TAD K7577 
DCA I WCLOC 
TAD 1 WCLOC 
SNA CLA 
JMP .♦4 

IDT 771 
JMP .'»4 

JMP PARREl 

CMA 

DCA I WCLOC 

TAD K0010 

lOT 764 

JMS I WAIT! 

1 

JMP PARREl 

TAD I BFlwDl 
AND K0077 
SZA CLA 
JMP ,♦3 
TAD I BFIWDI 
AND K7700 
TAD I CKSLOC 
TAD K0100 

S2A CLA 
JMP CKSERR 
JMS I PR2INC 
JMP PARTSl*7 

TAD K0200 
lOT 764 

JMS I NEWDRV 
JMP PARTSl 



/FIND BLOCK 

/CA = 7777 IN CASE 

/R ALL Breaks before data 



/READ ALL TO ^D DATA 



/WAIT FOR WC TO -0 



/IN CASE READ ERROR 



/RO Data to roi all 



/WAIT For cksjm in 



/test for 2 CHAR 
/IN FIRST WORJi 
/CKSUM SHOULD ■7700 



/CKSUM CORRECT 
/NO 

/NO 



/STOP Tape 

/DO NEXT DRIV£l 
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/READ BLOCKS BKWD FOR MO PARITY 
/ERRORS 

6252 1422 =»ARTS2, TAD I PqSiTm 

6253 3020 OCA RECORD 

6254 7040 CMA 

6255 3114 OCA OIRFLG 

6256 4435 JMS I SRCHIT /Fl\iD LAST BLOCK BKWDS 

6257 1116 TAD K0030 

6260 6764 lOT 764 

6261 1032 TAD BFlLOC 

6262 3430 OCA I CALOC 

6263 1064 TAD K7577 

6264 3427 OCA I WCLOC 

6265 4440 JMS I WAITI 

6266 0001 1 

6267 5273 JMP PARREZ /TEST FOR END BONE 

6270 4755 JMS I PR2INC 

6271 5260 JMP PARTS2*6 

6272 5302 JMP PARTS3+2 

6273 1020 PaRREZ, TAD RECORD 

6274 7700 SMA CLA /DONE BLOCK 

6275 5345 JMP PARRE2 /NO, iRROR STATUS 

6276 4437 JMS I NEWORV /DONE ALL DRIVES 

6277 5252 JMP PARTS2 /DO N£XT 

/READ BLOCKS FORWARD FOR NO 
/PARITY ERRORS 

6300 3020 PARTS3, OCA RECORD 

6301 5255 JmP PARTS2*3 /BLoC<i FWD 
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6302 
6303 
6304 
6305 
6306 
6307 

6310 
6311 
6312 
6313 
6314 
6315 
6316 
6317 
6320 
6321 

6322 
6323 
6384 

6325 
6386 

6327 
6330 
6331 
6332 
6333 
6334 
6335 
6336 
6337 
6340 
6341 

6342 
6343 
6344 

6345 
6346 
6347 
6350 
6351 
6352 
6353 
6354 
6355 
6356 



1075 
6764 
4437 
5300 
5707 
6000 

4444 
4445 
44?6 
0043 
5363 
6$55 
0045 
6262 
5762 
7700 

1031 
4451 
44Si 
0044 
4164 
4177 
1396 
4451 
4456 
0043 
5300 
6365 
5577 
4755 
5202 
5250 

4744 
5202 

5466 

4744 
4755 
7410 
5304 
1020 
7710 
5276 
5256 
6161 
7175 



TAO K0200 

lOT 764 /STOP TAPE 

JMS I NEWDRV /ALU DRIVES 

JMP PARTS3 /NOPE 

JMP I t*! /WRITII TO WRONG 

PARTS4 /PARITY AND TigT ERROR 

CkSERR, JMS I ERRSTP 
JMS I DRIVTY 
JMS I TYPTEX 
43 

5363 
6555 
45 

6262 
5762 
7700 



TAD BFIWDI 

JMS I TYPCON 

JMS I TYPTEX 

44 

4164 

4177 

TAD CKSLOC 

JMS ! TYPCON 

JMS I TYPTEX 

43 

5300 

6365 

5577 

JMS ! PR2ING 

JMP PARTS1*2 

JMP pARTS2g,2 

PaRREI, JMS I 
JMP PARTS1*2 
PARRSE 



.*2 



.-1 



PaRRE2» JMS I 

JMS 1 PR2INC 

SKP 

JMP PARTS3*4 

TAD RECORD 

SPA CLA 

JMP PARTS3«-2 

JMP PARTS2*4 
PR2INC, PR4INC 
CkSLOC, BUFFRS*201 



'"^ - C ^ T ^ 


127^ 


"/"ILOC 


:?i'T3o 


:Fin\ 


^331 


^FP^LOC 


<!f;33 


eK3Lir 


•7 '? T /< 


■.J V ■ , ' J V p 


A'ih 


-LKBl'' 


■•^120 


LiLK^TS 


0117 


3LKFLG 


07 47 


BLKFND 


0^:121 


3LKINC 


^I 13 


BLOCKK 


37 70 


BNOTGN 


3722 


BUFFRS 


6774 


3;JFFR2 


717S 


3'.JFF^3 


7376 


CALOC 


0f^32I 


CD^IVF 


0057 


CHNHDR 


3437 


CIPHER 


021 1 


CKSE.RR 


6310 


CKSLOC 


6356 


COCO^IP 


5031 


CODATA 


5000 


COFRRO 


5051 


COFR^I 


5 107 


COFLA^ 


51 50 


COIMCR 


502 4 


COLOOP 


5017 


CO'^^IT 


0062 


CRLFLF 


12 42 


DAPSAV 


4100 


OAT A CO 


0042 


DIRECT 


0023 


DIRFL'l 


01 14 


DIRSAV 


01 12 


DOLOOP 


2200 


DOTHE*^ 


21 12 


DRIVTY 


0045 


DRVTYP 


2743 


ERRSTP 


0044 


ERSSTA 


00 5 3 


ERSTP 


1310 


EZ3IT 


01 10 


EZERR 


3366 


EZERRA 


3436 


EZTYPE 


4067 


FORDTY 


1076 


FWDTYP 


41 11 


G3Kkn 


3214 


GET^IM 


2310 


GET 4 IN 


2172 


GMPAT?! 


4600 


GNPATl 


4604 


G^'PAT2 


4610 


nMPAT3 


4614 


-MPAT4 


4622 


GMPAT5 


4630 


GMpAT^ 


4636 


nMPAT? 


46 44 
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-• • '■: N i 
4f,-M 


MLTV^ 


0311 


lOCO^J 


-TjiTloc; 


-01 


6-?0 


P.ECD 


0254 


K ^2 5 


'Ti 32'^ 


KNIDATA 


^14 5 


K^^'^Z 


0076 


K0006 


4373 


K0 0',^7 


0073 


K .1 CI 


0130 


K2020 


007 4 


K2!030 


01 16 


K2!037 


0127 


K00 40 


0121 


K0050 


01 15 


K/'052 


1776 


K0:^77 


0071 


K0100 


0123 


K3101 


0124 


K3140 


6155 


K0170 


0122 


K0200 


0075 


K0234 


0125 


K0212 


1260 


K0214 


0103 


K0215 


1257 


K0220 


1772 


K0240 


0072 


K0400 


0102 


K0600 


2344 


K0600A 


1773 


K0604 


0065 


K0614 


0101 


K1000 


1774 


K260 


1535 


K^700 


3540 


K2701 


0100 


K3 5 00 


1777 


K4000 


0066 


K4215 


0276 


K5076 


0126 


K5077 


0077 


K7003 


2345 


K7472 


2673 


K7475 


3131 


K7577 


0064 


K7600 


4566 


K7600A 


6175 


K7 600B 


5757 


K7700 


0070 


K7730 


1775 


K7760 


0363 


K7767 


0^^67 


K7772 


4374 


LST'^LK 


024 


viSBITS 


0061 


-IV^KWD 


2223 


^VCHN'O 


2274 



*^5 



/.;"■- ; M 


i?/'7 


'^ivfwd" 


2216 


IV '^^K''/ 


2121 


MV-CHO 


213"^ 


^nrF'.'D 


21 13 


My— OPT 


2 1 5 £ 


MV^STP 


2127 


•^,\j^''!^:T 


2147 


MV^rqj 


202'^ 


■^IVRPT 


2257 


"^VRT'L 


2073 


>'!V3T0P 


22 30 


^1VTEST 


Ip Tl -T •' 


viV-'/AIT 


22 4 < 


NEVORV 


0037 


NOS^''^ 


5526 


\!M'1WRD 


-[^n 


QTHRTX 


2721 


PARE71 


5642 


PARLOC 


5756 


PARREZ 


6273 


PARREl 


6342 


PARRE2 


6545 


PARRE3 


6156 


PARRE4 


61 14 


PARRSE 


5466 


PARTA3 


4672 


PARTST 


5600 


PARTSl 


6200 


PARTS2 


62 52 


PARTS3 


6300 


PARTS4 


6000 


PARTS5 


6045 


PARTS6 


6073 


PARW'^R 


5744 


PARWLl 


5653 


PARWL2 


5703 


PATMU-^ 


4570 


PATTBA 


1771 


PATT?L 


4565 


PNTRS 


0500 


POSITN 


0022 


POSSAV 


01 1 1 


PRE^LK 


07 50 


PRT5EZ 


6077 


PRWAF 


61 1 1 


PR2INC 


6355 


PR4INC 


6161 


PTA3LE 


472 4 


RO^TTY 


0046 


^OCEND 


4515 


-OCLPl 


21470 


^ C '';'^^ 


/'451 


^■^C-AS 


Zi5 6-4 


^jSCOP 


1667 


R DSC 01 


1723 


RDSEMO 


4531 


R^SERR 


5502 


RDSVLP 


4562 
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RDSWS 

^ECRDK 
REFLGS 
REPOSI 
RERFLG 
RESBEZ 
RESBK3 
RESBKW 
RESFEZ 
RESFWD 
RESFWF 
RESXIT 
RESYEZ 
RESYNC 
REWIND 
RSFDRV 
RSFDRl 
SAVPAD 
S-^iABK 
S3AFK 
S3C0NS 
S3RECV 
S3TYPE 
SCHIER 
SCHIND 
SCHICK 
SCHIST 
SCH2ER 
'H20K 

'^-r^ARCH 
SEKONS 
SERCH2 
SERCf^P 
SEREZ 
SER2A 
SER2AI 
SER2LS 
SER2NZ 
SER2ST 
SER2TY 
SFA3K 
SFAFK 
SIERRO 



5433 
5434 
0020 
0026 
4734 
0400 
4567 
4336 
4320 
4276 
4260 
4213 
4232 
4250 
4354 

420:^ 

0036 

0417 

0435 

0043 

0106 

0107 

0674 

1331 

0047 

2433 

2461 

2444 

2421 

2513 

2525 

0600 

1071 

2600 

3070 

2655 

3000 

2720 

3111 

2674 

2637 

3123 

0105 

0104 

2565 



SRCHER 

SRCHIT 

S'^CHTY 

S^CHl 

S^CH2 

SRCVCK 

SRH"ZTS 

S^HERR 

SRSCOP 

SRTAFN 

SSTA3W 

SSTAER 

SSTAEZ 

SSTAFW 

SSTANl 

SSTAN2 

SSTAN3 

SSTAN4 

SSTAIA 

SSTA2A 

SSTA3A 

SSTA3B 

SSTA4A 

SSTA4B 

SST33E 

SSTBKW 

SSTBR 

SSTBSE 

SSTERl 

SSTEZA 

SSTEZl 

SSTF3E 

SSTFR 

SSTFSE 

SSTFWD 

SSTRNA 

STPERR 

SYNCRE 

T A PONT 

TE'IPY 

TE^Pl 

TSRDEZ 

TSTAT3 

TSTT3L 

TXSTOR 

TYALL 



0746 

0035 

0052 

24 00 

2500 

0555 

0721 

1000 

1734 

0634 

3651 . 

4000 

3437 

3600 

3254 

3277 

3322 

3400 

3267 

3311 

3334 

3353 

3412 

3424 

3711 

0055 

3670 

3703 

3210 

5470 

3501 

3640 

3617 

3632 

0054 

3200 

0044 

4107 

0751 

1770 

4563 

5452 

1516 

0277 

1507 

1505 



TY3KW 

TYCHAR 

TYCONT 

TYCOVR 

TYDATA 

TYDIR 

TYDRV 

TYFWD 

TYINTX 

TY'^ODE 

TY>10VE 

TYPCON 

TYPTEX 

tyrall 

TYRDAT 

TYREAD 

TYSRCH 

TYTEXT 

TYWALL 

TYWDAT 

TYWrUT 

UKDATA 

UNFUNC 

WAETYP 

WAITI 

WAITIM 

WCLOC 

WDATTY 

WRDIR 

WRRDND 

WRSCOP 

WRSCOl 

WRTEZA 

WRTEZT 

WRTLPl 

WRTSEZ 

WRTSLP 

WRTSWA 

WRTSWS 

WRTTST 

WRT52 

WTHALF 

WTIJ-^P 

WTINT 

WT500 



1545 
1250 
1261 
1275 
1475 
1556 
151 1 
1555 
2755 
1565 
1400 
0351 
0356 
1455 
1424 
14 60 
1411 
12^0 

l^!5l 

14^.-? 
1466 
5146 
00^2! 
51^;1 
00 /.0 
20^3 

00r7 

005? 
51*^7 
5161 
1600 
1645 
5501 
52 5 '^ 
4421 
1655 
4561 
5226 
5200 
4400 
5512 
0041 
0272 
0254 
0515 



